Subversion Repositories DevTools

Rev

Rev 6771 | Rev 6775 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6771 Rev 6774
Line 79... Line 79...
79 
                   </tr>
 79 
                   </tr>
80 
 
 80 
 
81 
                   <!-- Status Table Body -->
 81 
                   <!-- Status Table Body -->
82 
                    <%
 82 
                    <%
83 
                    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
 83 
                    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
- 
 
 84 
                    Dim showWarn, showWarnText
84 
                    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 85 
                    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
85 
                        %><tr class="body_rowg2"><%
 86 
                        %><tr class="body_rowg2"><%
86 
 
 87 
 
87 
                        Dim enabledControl
 88 
                        Dim enabledControl
88 
                        enabledControl = "<input type='checkbox' disabled "& IIF(rsQry("ENABLED") =  "Y", "checked","")  &" >"
 89 
                        enabledControl = "<input type='checkbox' disabled "& IIF(rsQry("ENABLED") =  "Y", "checked","")  &" >"
89 
                        Select Case rsQry("etype")
 90 
                        Select Case rsQry("etype")
90 
                            ' Server entry
 91 
                            ' Server entry
91 
                            Case 0
92 
                            Case 0
- 
 
 93 
                                Dim replicationMode
- 
 
 94 
                                If rsQry("BLAT_FULL") = "P" Then
- 
 
 95 
                                    replicationMode = "All Projects"
- 
 
 96 
                                    showWarn = true
- 
 
 97 
                                    showWarnText = "Covered by replication of All Projects"
- 
 
 98 
                                ElseIf rsQry("BLAT_FULL") = "E" Then
92 
                                Dim replicationMode : replicationMode = IIF(rsQry("BLAT_FULL") = "Y", "Full Archive Replication", "")
 99 
                                    replicationMode = "Entire Archive"
- 
 
 100 
                                    showWarnText = "Covered by replication of Entie Archive"
- 
 
 101 
                                    showWarn = true
93
102 
                                Else
- 
 
 103 
                                    replicationMode = "Normal"
- 
 
 104 
                                    showWarn = false
- 
 
 105 
                                End If
94 
                            %>
 106 
                            %>
95 
                                <td class="body_row" nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
 107 
                                <td class="body_row" nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
96 
                                <td><%=enabledControl%></td>
 108 
                                <td><%=enabledControl%></td>
97 
                                <td class="body_row" nowrap colspan=3><%=replicationMode%></td>
 109 
                                <td class="body_row" nowrap colspan=3><%=replicationMode%></td>
98 
                            <%
 110 
                            <%
Line 106... Line 118...
106 
 
 118 
 
107 
                            ' Project Entry
 119 
                            ' Project Entry
108 
                            Case 2%>
 120 
                            Case 2%>
109 
                                <td></td>
 121 
                                <td></td>
110 
                                <td><%=enabledControl%></td>
 122 
                                <td><%=enabledControl%></td>
111 
                                <td class="body_row" nowrap>Project</td>
 123 
                                <td class="body_row" nowrap>Project
- 
 
 124 
                                    <%If showWarn Then%>
- 
 
 125 
                                        <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
- 
 
 126 
                                    <%End If%>
- 
 
 127 
                                </td>
112 
                                <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
 128 
                                <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
113 
                                <td class="body_row" nowrap></td>
 129 
                                <td class="body_row" nowrap></td>
114 
                            <%
 130 
                            <%
115 
                            ' Release Entry - has xref to containing project
 131 
                            ' Release Entry - has xref to containing project
116 
                            Case 3%>
 132 
                            Case 3%>
117 
                                <td></td>
 133 
                                <td></td>
118 
                                <td><%=enabledControl%></td>
 134 
                                <td><%=enabledControl%></td>
119 
                                <td class="body_row" nowrap>Release</td>
 135 
                                <td class="body_row" nowrap>Release
- 
 
 136 
                                    <%If showWarn Then%>
- 
 
 137 
                                        <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
- 
 
 138 
                                    <%End If%>
- 
 
 139 
                                </td>
120 
                                <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
 140 
                                <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
121 
                                <td class="body_row" nowrap><a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
 141 
                                <td class="body_row" nowrap><a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
122 
                            <%
 142 
                            <%
123 
 
 143 
 
124 
                        End Select
 144 
                        End Select