Subversion Repositories DevTools

Rev

Rev 6877 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6877 Rev 6881
Line 50... Line 50...
50 
                      <th>Enabled</th>
 50 
                      <th>Enabled</th>
51 
                      <th>Mode</th>
 51 
                      <th>Mode</th>
52 
                      <th>Project</th>
 52 
                      <th>Project</th>
53 
                      <th>Release</th>
 53 
                      <th>Release</th>
54 
               </thead>
 54 
               </thead>
55 
 
 - 
 
- 
 
 55 
               <tbody>
56 
               <!-- Status Table Body -->
 56 
               <!-- Status Table Body -->
57 
                <%
 57 
                <%
58 
                Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
 58 
                Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
59 
                Dim showWarn, showWarnText, hasProjectReplication
 59 
                Dim showWarn, showWarnText, hasProjectReplication
- 
 
 60 
                set hasProjectReplication = CreateObject("Scripting.Dictionary")
60 
                While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 61 
                While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
61 
                    %><tr class="body_rowg2"><%
 62 
                    %><tr><%
62 
 
 63 
 
63 
                    Dim enabledControl
 64 
                    Dim enabledControl
64 
                    enabledControl = "<input type='checkbox' disabled "& IIF(rsQry("ENABLED") =  "Y", "checked","")  &" >"
 65 
                    enabledControl = "<input type='checkbox' disabled "& IIF(rsQry("ENABLED") =  "Y", "checked","")  &" >"
65 
                    Select Case rsQry("etype")
 66 
                    Select Case rsQry("etype")
66 
                        ' Server entry
 67 
                        ' Server entry
Line 76... Line 77...
76 
                                showWarn = true
 77 
                                showWarn = true
77 
                            Else
 78 
                            Else
78 
                                replicationMode = "Normal"
 79 
                                replicationMode = "Normal"
79 
                                showWarn = false
 80 
                                showWarn = false
80 
                            End If
 81 
                            End If
81 
                            hasProjectReplication = false
 82 
                            hasProjectReplication.RemoveAll
82 
                        %>
 83 
                        %>
83 
                            <td class="body_row" nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
 84 
                            <td nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
84 
                            <td><%=enabledControl%></td>
 85 
                            <td><%=enabledControl%></td>
85 
                            <td class="body_row" nowrap colspan=3><%=replicationMode%></td>
 86 
                            <td nowrap colspan=3><%=replicationMode%></td>
86 
                        <%
 87 
                        <%
87 
 
 88 
 
88 
                        ' No longer used
 89 
                        ' No longer used
89 
                        Case 1%>
 90 
                        Case 1%>
90 
                            <td></td>
 91 
                            <td></td>
91 
                            <td><%=enabledControl%></td>
 92 
                            <td><%=enabledControl%></td>
92 
                            <td class="body_row" nowrap colspan=3>Full Archive Replication</td>
 93 
                            <td nowrap colspan=3>Full Archive Replication</td>
93 
                        <%
 94 
                        <%
94 
 
 95 
 
95 
                        ' Project Entry
 96 
                        ' Project Entry
96 
                        Case 2
 97 
                        Case 2
97 
                            hasProjectReplication = true
 98 
                            hasProjectReplication.Item( Cstr(rsQry("PROJ_ID")) ) = true
98 
                            %>
 99 
                            %>
99 
                            <td></td>
 100 
                            <td></td>
100 
                            <td><%=enabledControl%></td>
 101 
                            <td><%=enabledControl%></td>
101 
                            <td class="body_row" nowrap>Project
 102 
                            <td nowrap>Project
102 
                                <%If showWarn Then%>
 103 
                                <%If showWarn Then%>
103 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
 104 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
104 
                                <%End If%>
105 
                                <%End If%>
105 
                            </td>
 106 
                            </td>
106 
                            <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
 107 
                            <td nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
107 
                            <td class="body_row" nowrap></td>
 108 
                            <td nowrap></td>
108 
                        <%
 109 
                        <%
109 
                        ' Release Entry - has xref to containing project
 110 
                        ' Release Entry - has xref to containing project
110 
                        Case 3
 111 
                        Case 3
111 
                            Dim noReplicaTxt : noReplicaTxt = ""
 112 
                            Dim noReplicaTxt : noReplicaTxt = ""
112 
                            If rsQry("OFFICIAL") = "A" Then
 113 
                            If rsQry("OFFICIAL") = "A" Then
113 
                                noReplicaTxt = "Release is in a state that will not be replicated"
 114 
                                noReplicaTxt = "Release is in a state that will not be replicated"
114 
                            End If
 115 
                            End If
115 
                            %>
 116 
                            %>
116 
                            <td></td>
 117 
                            <td></td>
117 
                            <td><%=enabledControl%></td>
 118 
                            <td><%=enabledControl%></td>
118 
                            <td class="body_row" nowrap>Release
 119 
                            <td nowrap>Release
119 
                                <%If showWarn Then%>
 120 
                                <%If showWarn Then%>
120 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
 121 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
121 
                                <%End If%>
122 
                                <%End If%>
122 
                                <%If noReplicaTxt <> "" Then%>
 123 
                                <%If noReplicaTxt <> "" Then%>
123 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=noReplicaTxt%>' style='vertical-align: bottom;'>
 124 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=noReplicaTxt%>' style='vertical-align: bottom;'>
124 
                                <%End If%>
 125 
                                <%End If%>
125 
                                <%If hasProjectReplication Then%>
 126 
                                <%If hasProjectReplication.Exists(Cstr(rsQry("PROJ_ID"))) Then%>
126 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='Covered by Project Replication' style='vertical-align: bottom;'>
 127 
                                    <img src='images/s_warning.gif' width='14' height='13' border='0' title='Covered by Project Replication' style='vertical-align: bottom;'>
127 
                                <%End If%>
 128 
                                <%End If%>
128 
                            </td>
 129 
                            </td>
129 
                            <td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
 130 
                            <td nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
130 
                            <td class="body_row" nowrap><%=ReleaseIcon(rsQry("OFFICIAL"))%>
 131 
                            <td nowrap><%=ReleaseIcon(rsQry("OFFICIAL"))%>
131 
                            <a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
 132 
                            <a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
132 
                        <%
 133 
                        <%
133 
 
 - 
 
134 
                    End Select
 134 
                    End Select
135 
                    %></tr><%
 135 
                    %></tr><%
136 
                    rsQry.MoveNext
 136 
                    rsQry.MoveNext
137 
                WEnd
 137 
                WEnd
138 
                rsQry.Close
 138 
                rsQry.Close
139 
                Set rsQry = Nothing
 139 
                Set rsQry = Nothing
- 
 
 140 
                Set hasProjectReplication = Nothing
140 
                %>
 141 
                %>
- 
 
 142 
               </tbody>
141 
            </table>
 143 
            </table>
142 
             </td>
 144 
             </td>
143 
           </tr>
 145 
           </tr>
144 
        </table>
 146 
        </table>
145 
      </td>
 147 
      </td>