| Line 34... |
Line 34... |
| 34 |
Sub ShowMainPanel
|
34 |
Sub ShowMainPanel
|
| 35 |
%>
|
35 |
%>
|
| 36 |
<table width="10" class="embedded_table" style="margin-bottom:10px">
|
36 |
<table width="10" class="embedded_table" style="margin-bottom:10px">
|
| 37 |
<tr>
|
37 |
<tr>
|
| 38 |
<td>
|
38 |
<td>
|
| 39 |
<table class="rounded_box embedded_table" width="100%" >
|
39 |
<table class="rounded_box round_box_std embedded_table" width="100%" >
|
| 40 |
<caption nowrap class="form_ttl tleft">Package Replication Summary</caption>
|
40 |
<caption>Package Replication Summary</caption>
|
| 41 |
<tr>
|
41 |
<tr>
|
| 42 |
<td>
|
42 |
<td>
|
| 43 |
<div class='round_box_pad'>
|
- |
|
| 44 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
43 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 45 |
<!--#include file="messages/_msg_inline.asp"-->
|
44 |
<!--#include file="messages/_msg_inline.asp"-->
|
| 46 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
45 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 47 |
<table width="100%" border="0" cellspacing="1" cellpadding="1">
|
46 |
<table width="100%" border="0" cellspacing="1" cellpadding="1" class=stdGrey>
|
| 48 |
<tr class="form_field_bg">
|
47 |
<thead>
|
| 49 |
<!-- Status Table Header -->
|
48 |
<!-- Status Table Header -->
|
| 50 |
<td class="form_field_hdr form_align">Target</td>
|
49 |
<th>Target</th>
|
| 51 |
<td class="form_field_hdr form_align">Enabled</td>
|
50 |
<th>Enabled</th>
|
| 52 |
<td class="form_field_hdr form_align">Mode</td>
|
51 |
<th>Mode</th>
|
| 53 |
<td class="form_field_hdr form_align">Project</td>
|
52 |
<th>Project</th>
|
| 54 |
<td class="form_field_hdr form_align">Release</td>
|
53 |
<th>Release</th>
|
| 55 |
</tr>
|
54 |
</thead>
|
| 56 |
|
55 |
|
| 57 |
<!-- Status Table Body -->
|
56 |
<!-- Status Table Body -->
|
| 58 |
<%
|
57 |
<%
|
| 59 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
|
58 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReplicaStatus.sql"), cint(0))
|
| 60 |
Dim showWarn, showWarnText, hasProjectReplication
|
59 |
Dim showWarn, showWarnText, hasProjectReplication
|
| 61 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
60 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
| 62 |
%><tr class="body_rowg2"><%
|
61 |
%><tr class="body_rowg2"><%
|
| 63 |
|
62 |
|
| 64 |
Dim enabledControl
|
63 |
Dim enabledControl
|
| 65 |
enabledControl = "<input type='checkbox' disabled "& IIF(rsQry("ENABLED") = "Y", "checked","") &" >"
|
64 |
enabledControl = "<input type='checkbox' disabled "& IIF(rsQry("ENABLED") = "Y", "checked","") &" >"
|
| 66 |
Select Case rsQry("etype")
|
65 |
Select Case rsQry("etype")
|
| 67 |
' Server entry
|
66 |
' Server entry
|
| 68 |
Case 0
|
67 |
Case 0
|
| 69 |
Dim replicationMode
|
68 |
Dim replicationMode
|
| 70 |
If rsQry("BLAT_MODE") = "P" Then
|
69 |
If rsQry("BLAT_MODE") = "P" Then
|
| 71 |
replicationMode = "All Projects"
|
70 |
replicationMode = "All Projects"
|
| 72 |
showWarn = true
|
71 |
showWarn = true
|
| 73 |
showWarnText = "Covered by replication of All Projects"
|
72 |
showWarnText = "Covered by replication of All Projects"
|
| 74 |
ElseIf rsQry("BLAT_MODE") = "E" Then
|
73 |
ElseIf rsQry("BLAT_MODE") = "E" Then
|
| 75 |
replicationMode = "Entire Archive"
|
74 |
replicationMode = "Entire Archive"
|
| 76 |
showWarnText = "Covered by replication of Entie Archive"
|
75 |
showWarnText = "Covered by replication of Entie Archive"
|
| 77 |
showWarn = true
|
76 |
showWarn = true
|
| 78 |
Else
|
77 |
Else
|
| 79 |
replicationMode = "Normal"
|
78 |
replicationMode = "Normal"
|
| 80 |
showWarn = false
|
79 |
showWarn = false
|
| 81 |
End If
|
80 |
End If
|
| 82 |
hasProjectReplication = false
|
81 |
hasProjectReplication = false
|
| 83 |
%>
|
82 |
%>
|
| 84 |
<td class="body_row" nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
|
83 |
<td class="body_row" nowrap><a href=admin_blat_machines.asp?server_id=<%=rsQry("blat_id")%>><%=rsQry("blat_display_name")%></a></td>
|
| 85 |
<td><%=enabledControl%></td>
|
84 |
<td><%=enabledControl%></td>
|
| 86 |
<td class="body_row" nowrap colspan=3><%=replicationMode%></td>
|
85 |
<td class="body_row" nowrap colspan=3><%=replicationMode%></td>
|
| 87 |
<%
|
86 |
<%
|
| 88 |
|
87 |
|
| 89 |
' No longer used
|
88 |
' No longer used
|
| 90 |
Case 1%>
|
89 |
Case 1%>
|
| 91 |
<td></td>
|
90 |
<td></td>
|
| 92 |
<td><%=enabledControl%></td>
|
91 |
<td><%=enabledControl%></td>
|
| 93 |
<td class="body_row" nowrap colspan=3>Full Archive Replication</td>
|
92 |
<td class="body_row" nowrap colspan=3>Full Archive Replication</td>
|
| 94 |
<%
|
93 |
<%
|
| 95 |
|
94 |
|
| 96 |
' Project Entry
|
95 |
' Project Entry
|
| 97 |
Case 2
|
96 |
Case 2
|
| 98 |
hasProjectReplication = true
|
97 |
hasProjectReplication = true
|
| 99 |
%>
|
98 |
%>
|
| 100 |
<td></td>
|
99 |
<td></td>
|
| 101 |
<td><%=enabledControl%></td>
|
100 |
<td><%=enabledControl%></td>
|
| 102 |
<td class="body_row" nowrap>Project
|
101 |
<td class="body_row" nowrap>Project
|
| 103 |
<%If showWarn Then%>
|
102 |
<%If showWarn Then%>
|
| 104 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
|
103 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
|
| 105 |
<%End If%>
|
104 |
<%End If%>
|
| 106 |
</td>
|
105 |
</td>
|
| 107 |
<td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
|
106 |
<td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
|
| 108 |
<td class="body_row" nowrap></td>
|
107 |
<td class="body_row" nowrap></td>
|
| 109 |
<%
|
108 |
<%
|
| 110 |
' Release Entry - has xref to containing project
|
109 |
' Release Entry - has xref to containing project
|
| 111 |
Case 3
|
110 |
Case 3
|
| 112 |
Dim noReplicaTxt : noReplicaTxt = ""
|
111 |
Dim noReplicaTxt : noReplicaTxt = ""
|
| 113 |
If rsQry("OFFICIAL") = "A" Then
|
112 |
If rsQry("OFFICIAL") = "A" Then
|
| 114 |
noReplicaTxt = "Release is in a state that will not be replicated"
|
113 |
noReplicaTxt = "Release is in a state that will not be replicated"
|
| 115 |
End If
|
114 |
End If
|
| 116 |
%>
|
115 |
%>
|
| 117 |
<td></td>
|
116 |
<td></td>
|
| 118 |
<td><%=enabledControl%></td>
|
117 |
<td><%=enabledControl%></td>
|
| 119 |
<td class="body_row" nowrap>Release
|
118 |
<td class="body_row" nowrap>Release
|
| 120 |
<%If showWarn Then%>
|
119 |
<%If showWarn Then%>
|
| 121 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
|
120 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=showWarnText%>' style='vertical-align: bottom;'>
|
| 122 |
<%End If%>
|
121 |
<%End If%>
|
| 123 |
<%If noReplicaTxt <> "" Then%>
|
122 |
<%If noReplicaTxt <> "" Then%>
|
| 124 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=noReplicaTxt%>' style='vertical-align: bottom;'>
|
123 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='<%=noReplicaTxt%>' style='vertical-align: bottom;'>
|
| 125 |
<%End If%>
|
124 |
<%End If%>
|
| 126 |
<%If hasProjectReplication Then%>
|
125 |
<%If hasProjectReplication Then%>
|
| 127 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='Covered by Project Replication' style='vertical-align: bottom;'>
|
126 |
<img src='images/s_warning.gif' width='14' height='13' border='0' title='Covered by Project Replication' style='vertical-align: bottom;'>
|
| 128 |
<%End If%>
|
127 |
<%End If%>
|
| 129 |
</td>
|
128 |
</td>
|
| 130 |
<td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
|
129 |
<td class="body_row" nowrap><a href=form_project_replication.asp?proj_id=<%=rsQry("PROJ_ID")%>><%=rsQry("PROJ_NAME")%></a></td>
|
| 131 |
<td class="body_row" nowrap><%=ReleaseIcon(rsQry("OFFICIAL"))%>
|
130 |
<td class="body_row" nowrap><%=ReleaseIcon(rsQry("OFFICIAL"))%>
|
| 132 |
<a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
|
131 |
<a href=form_release_replication.asp?rtag_id=<%=rsQry("RTAG_ID")%>><%=rsQry("RTAG_NAME")%></a></td>
|
| 133 |
<%
|
132 |
<%
|
| 134 |
|
133 |
|
| 135 |
End Select
|
134 |
End Select
|
| 136 |
%></tr><%
|
135 |
%></tr><%
|
| 137 |
rsQry.MoveNext
|
136 |
rsQry.MoveNext
|
| 138 |
WEnd
|
137 |
WEnd
|
| 139 |
rsQry.Close
|
138 |
rsQry.Close
|
| 140 |
Set rsQry = Nothing
|
139 |
Set rsQry = Nothing
|
| 141 |
%>
|
140 |
%>
|
| 142 |
</table>
|
141 |
</table>
|
| 143 |
</div>
|
- |
|
| 144 |
</td>
|
142 |
</td>
|
| 145 |
</tr>
|
143 |
</tr>
|
| 146 |
</table>
|
144 |
</table>
|
| 147 |
</td>
|
145 |
</td>
|
| 148 |
</tr>
|
146 |
</tr>
|