Subversion Repositories DevTools

Rev

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

Rev 6873 Rev 6874
Line 84... Line 84...
84 
    <!-- FORM START -->
 84 
    <!-- FORM START -->
85 
    objFormComponent.FormName = "FormName"
 85 
    objFormComponent.FormName = "FormName"
86 
    objFormComponent.Action = ScriptName &"?rtag_id="& parRtagId
 86 
    objFormComponent.Action = ScriptName &"?rtag_id="& parRtagId
87 
    Call objFormComponent.FormStart()
 87 
    Call objFormComponent.FormStart()
88 
    %>
 88 
    %>
89 
    <table class="embedded_table" style="margin-bottom:20px">
 - 
 
90 
      <tr>
 89 
    <div>
91 
         <td>
 - 
 
92 
                <tr>
 - 
 
93 
                    <td>
 90 
        <div class=panel>
94 
                        <table class="rounded_box embedded_table">
 - 
 
95 
                          <caption nowrap class="form_ttl tleft">BUILD STATUS INFORMATION</caption>
 - 
 
96 
                            <tr>
 - 
 
97 
                                <td>
 - 
 
98 
                                    <div class='round_box_pad'>
 - 
 
99 
                                <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
100 
                                <!--#include file="messages/_msg_inline.asp"-->
 - 
 
101 
                                <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
102 
                                <table width="100%" border="0" cellspacing="2" cellpadding="0">
 - 
 
103 
                                    <tr>
 - 
 
104 
                                        <td colspan=4 class='err_alert'><font size='2'><b>Packages Excluded From Build</b></font></td>
 - 
 
105 
                                    </tr>
 - 
 
106 
                                    <tr>
 - 
 
107 
                                    <td></td>
 - 
 
108 
                                    <td  colspan=3 class="body_row">
 - 
 
109 
                                       <fieldset class="fset" align="right" style=" border: 1px groove;">
 - 
 
110 
                                            Show
 - 
 
111 
                                            <input type="checkbox" checked value=0 name="showManual"   id="manualCause"   onClick="toggleDispClass('manualCause',1);">Manual Exclusions
 - 
 
112 
                                            <input type="checkbox" checked value=0 name="showCause"    id="rootCause"     onClick="toggleDispClass('rootCause',1);">Config Errors
 - 
 
113 
                                            <input type="checkbox" checked value=0 name="showNoEnv"    id="rootNoEnv"     onClick="toggleDispClass('rootNoEnv',1);">Env Errors
 - 
 
114 
                                            <input type="checkbox" checked value=0 name="showFile"     id="rootFile"      onClick="toggleDispClass('rootFile',1);">Build Errors
 - 
 
115 
                                            <input type="checkbox" checked value=0 name="showIndirect" id="rootIndirect"  onClick="toggleDispClass('rootIndirect',1);">Indirect Exclusions
 - 
 
116 
                                       </fieldset>
 - 
 
117 
                                       </td>
 - 
 
118 
                                    </tr>
 - 
 
119 
 
 - 
 
120 
                                   <tr>
 - 
 
121 
                                      <td class="err_alert body_lcol"><b>Directly</b></td>
 - 
 
122 
                                      <td valign="top" nowrap class="body_lcol">Package</td>
 - 
 
123 
                                      <td valign="top" nowrap class="body_lcol">Version</td>
 - 
 
124 
                                      <td valign="top" nowrap class="body_lcol">Root Cause</td>
 - 
 
125 
                                   </tr>
 - 
 
126 
                                   <tr>
 - 
 
127 
               <%
 - 
 
128 
               query_string = " select pkg.pkg_name, pv.pkg_version, pv.pv_id, dnr.rtag_id, dnr.root_cause, dnr.root_file, pv.pv_description, dnr.root_pv_id"&_
 - 
 
129 
                              "   from do_not_ripple dnr, package_versions pv, packages pkg"&_
 - 
 
130 
                              "  where dnr.rtag_id = "& parRtagId &_
 - 
 
131 
                              "    and pv.pv_id    = dnr.pv_id"&_
 - 
 
132 
                              "    and pkg.pkg_id  = pv.pkg_id"&_
 - 
 
133 
                              "    and nvl(dnr.root_pv_id, -1) < 0 " &_
 - 
 
134 
                              "  order by pkg_name"
 - 
 
135 
               Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 - 
 
136 
               '--- Render rows ---
 - 
 
137 
               Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
138 
                Dim rowClass
 - 
 
139 
                Dim rowData
 - 
 
140 
                '
 - 
 
141 
                ' Manually excluded packages have no root_cause or root_file or root_pv_id
 - 
 
142 
                '
 - 
 
143 
                ' root_file, if supplied, indicates a build failure log file exists
 - 
 
144 
                ' this should always prevail over the textual root_cause
 - 
 
145 
                '
 - 
 
146 
                If (IsNull(rsQry("root_file")) AND IsNull(rsQry("root_cause"))) Then
 - 
 
147 
                    rowData = "Manually Excluded"
 - 
 
148 
                    rowClass = "manualCause"
 - 
 
149 
 
 - 
 
150 
                ElseIf IsNull(rsQry("root_file")) Then
 - 
 
151 
                   rowData = rsQry("root_cause")
 - 
 
152 
                   If InStr(rowData, "no build env") Then
 - 
 
153 
                       rowClass = "rootNoEnv"
 - 
 
154 
                   Else
 - 
 
155 
                       rowClass = "rootCause"
 - 
 
156 
                   End If
 - 
 
157 
 
 - 
 
158 
                Else
 - 
 
159 
                    rowClass = "rootFile"
 - 
 
160 
                    rowData = "<a class=""txt_linked"" title=""" & rsQry("root_file") &_
 - 
 
161 
                              " Log file may have expired."" " &_
 - 
 
162 
                              "href=""" & shref_base & rsQry("root_file") & """>" &_
 - 
 
163 
                              "Build Failure Log File</a>"
 - 
 
164 
                End If
 - 
 
165 
 
 - 
 
166 
                Dim checkBoxData, checkBoxClass
 - 
 
167 
                If NiceInt(rsQry("root_pv_id"), -1) = -1   Then
 - 
 
168 
                    checkBoxData = ""
 - 
 
169 
                    checkBoxClass = "directInclude"
 - 
 
170 
                Else
 - 
 
171 
                    checkBoxData = "disabled"
 - 
 
172 
                    checkBoxClass = ""
- 
 
173 
                End If
 - 
 
174 
 
 - 
 
175 
               %>
 - 
 
176 
                  <tr class="<%=rowClass%>">
 - 
 
177 
                     <td colspan="5" class=body_line></td>
 - 
 
178 
                  </tr>
 - 
 
179 
                  <tr class="<%=rowClass%>">
 - 
 
180 
                     <td nowrap width="1%">
 - 
 
181 
                        <a name="PkgName_<%=rsQry("pkg_name")%>">
 - 
 
182 
                        <input class="<%=checkBoxClass%>" type="checkbox" value="<%=rsQry("pv_id")%>" name="pv_id_list" <%=checkBoxData%>>
 - 
 
183 
                        </a>
 - 
 
184 
                     </td>
 - 
 
185 
                     <td nowrap class="body_rowg"><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsQry("pv_id")%>&rtag_id=<%=rsQry("rtag_id")%>" title="<%=rsQry("pv_description")%>"><%=rsQry("pkg_name")%></a></td>
 - 
 
186 
                     <td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td>
 - 
 
187 
                     <td nowrap class="body_rowg"><%=rowData%></td>
 - 
 
188 
                  </tr>
 - 
 
189 
               <%
 - 
 
190 
                rsQry.MoveNext
 - 
 
191 
               Loop
 - 
 
192 
 
 - 
 
193 
               query_string = " select pv.pv_id, pkg.pkg_name, pv.pkg_version, qkg.pkg_name, dnr.rtag_id, pv.pv_description"&_
 - 
 
194 
                              "   from do_not_ripple dnr, package_versions pv, package_versions qv, packages pkg, packages qkg"&_
 - 
 
195 
                              "  where dnr.rtag_id = "& parRtagId &_
 - 
 
196 
                              "    and pv.pv_id    = dnr.pv_id"&_
 - 
 
197 
                              "    and pkg.pkg_id  = pv.pkg_id"&_
 - 
 
198 
                              "    and qv.pv_id    = dnr.root_pv_id"&_
 - 
 
199 
                              "    and qkg.pkg_id  = qv.pkg_id"&_
 - 
 
200 
                              "    and nvl(dnr.root_pv_id, -1) > 0"&_
 - 
 
201 
                              "  order by pkg.pkg_name"
 - 
 
202 
               Dim rsQry2
 - 
 
203 
               Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 - 
 
204 
               ' -- DISPLAY INDIRECTLY EXCLUDED PACKAGES
 - 
 
205 
               '--- Render rows ---
 - 
 
206 
                If rsQry2.recordCount > 0    Then
- 
 
207 
                %>
 - 
 
208 
                  <tr>
 - 
 
209 
                  <td class="body_lcol err_alert"><b>Indirectly</b></td>
 - 
 
210 
                  <td valign="top" nowrap class="body_lcol">Package</td>
 - 
 
211 
                  <td valign="top" nowrap class="body_lcol">Version</td>
 - 
 
212 
                  <td valign="top" nowrap class="body_lcol">Root Cause Package</td>
 - 
 
213 
                  </tr>
 - 
 
214 
               <%
 - 
 
215 
                End If
 - 
 
216 
               Do While (NOT rsQry2.BOF) AND (NOT rsQry2.EOF)%>
 - 
 
217 
                  <tr class="rootIndirect">
 91 
            <div class=rounded_box_caption>
218 
                     <td colspan="5" class=body_line></td>
 - 
 
219 
                  </tr>
 - 
 
220 
                  <tr class="rootIndirect">
 - 
 
221 
 
 - 
 
222 
                     <td nowrap><input type="checkbox" value=0 disabled=true name="notused"></td>
 - 
 
223 
                     <td nowrap class="body_rowg"><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsQry2(0)%>&rtag_id=<%=rsQry2(4)%>" title="<%=rsQry2(5)%>"><%=rsQry2(1)%></a></td>
 - 
 
224 
                     <td nowrap class="body_rowg"><%=rsQry2(2)%></td>
 - 
 
225 
                     <td nowrap class="body_rowg"><a href="#PkgName_<%=rsQry2(3)%>" style="text-decoration: none;">&raquo;&nbsp;<%=rsQry2(3)%></a></td>
 - 
 
226 
                  </tr>
 - 
 
227 
                  <%
 - 
 
228 
                  rsQry2.MoveNext
 - 
 
229 
               Loop%>
 - 
 
230 
            </table>
 - 
 
231 
             <table class="full_table form_bg_light">
 - 
 
232 
                 <tr>
 - 
 
233 
                     <td><input id="toggleDirect"
- 
 
234 
                                <%=Iif(rsQry.RecordCount > 0, "", " disabled ")%>
 - 
 
235 
                                type="checkbox" title="Toggle all visible directly excluded packages"></td>
 - 
 
236 
                     <td align="right">
 - 
 
237 
                        <%
 - 
 
238 
                        Response.Write(objFormComponent.SubmitButton ( "Include", "name='IncludeSubmit' id='IncludeSubmit' class='form_btn' disabled style='color:silver' onClick=""return vixConfirm('Are you sure you want to include these packages for building?',{title:'Include Packages', post : 'FormName'})""" ))
 92 
                BUILD STATUS INFORMATION
239 
                        Response.Write(objPMod.ComposeHiddenTags())
 - 
 
240 
                        %>
 - 
 
241 
                     </td>
 - 
 
242 
                 </tr>
 - 
 
243 
             </table>
 - 
 
244 
            </div>
 93 
            </div>
- 
 
 94 
            <div class="rounded_box">
- 
 
 95 
                <div class='rounded_box_pad listPanel'>
- 
 
 96 
                    <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 97 
                    <!--#include file="messages/_msg_inline.asp"-->
- 
 
 98 
                    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 99 
                    <table width="100%" border="0" cellspacing="2" cellpadding="0">
- 
 
 100 
                        <tr>
- 
 
 101 
                            <td colspan=4 class='err_alert'><font size='2'><b>Packages Excluded From Build</b></font></td>
- 
 
 102 
                        </tr>
- 
 
 103 
                        <tr>
- 
 
 104 
                        <td></td>
- 
 
 105 
                        <td  colspan=3 class="body_row">
- 
 
 106 
                           <fieldset class="fset" align="right" style=" border: 1px groove;">
- 
 
 107 
                                Show
- 
 
 108 
                                <input type="checkbox" checked value=0 name="showManual"   id="manualCause"   onClick="toggleDispClass('manualCause',1);">Manual Exclusions
- 
 
 109 
                                <input type="checkbox" checked value=0 name="showCause"    id="rootCause"     onClick="toggleDispClass('rootCause',1);">Config Errors
- 
 
 110 
                                <input type="checkbox" checked value=0 name="showNoEnv"    id="rootNoEnv"     onClick="toggleDispClass('rootNoEnv',1);">Env Errors
- 
 
 111 
                                <input type="checkbox" checked value=0 name="showFile"     id="rootFile"      onClick="toggleDispClass('rootFile',1);">Build Errors
- 
 
 112 
                                <input type="checkbox" checked value=0 name="showIndirect" id="rootIndirect"  onClick="toggleDispClass('rootIndirect',1);">Indirect Exclusions
- 
 
 113 
                           </fieldset>
- 
 
 114 
                           </td>
- 
 
 115 
                        </tr>
- 
 
 116 
 
- 
 
 117 
                       <tr>
- 
 
 118 
                          <td class="head err_alert">Directly</td>
- 
 
 119 
                          <td class='head'>Package</td>
- 
 
 120 
                          <td class='head'>Version</td>
- 
 
 121 
                          <td class='head'>Root Cause</td>
- 
 
 122 
                       </tr>
- 
 
 123 
                       <tr>
- 
 
 124 
       <%
- 
 
 125 
       query_string = " select pkg.pkg_name, pv.pkg_version, pv.pv_id, dnr.rtag_id, dnr.root_cause, dnr.root_file, pv.pv_description, dnr.root_pv_id"&_
- 
 
 126 
                      "   from do_not_ripple dnr, package_versions pv, packages pkg"&_
- 
 
 127 
                      "  where dnr.rtag_id = "& parRtagId &_
- 
 
 128 
                      "    and pv.pv_id    = dnr.pv_id"&_
- 
 
 129 
                      "    and pkg.pkg_id  = pv.pkg_id"&_
- 
 
 130 
                      "    and nvl(dnr.root_pv_id, -1) < 0 " &_
- 
 
 131 
                      "  order by pkg_name"
- 
 
 132 
       Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
- 
 
 133 
       '--- Render rows ---
- 
 
 134 
       Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 135 
        Dim rowClass
- 
 
 136 
        Dim rowData
- 
 
 137 
        '
- 
 
 138 
        ' Manually excluded packages have no root_cause or root_file or root_pv_id
- 
 
 139 
        '
- 
 
 140 
        ' root_file, if supplied, indicates a build failure log file exists
- 
 
 141 
        ' this should always prevail over the textual root_cause
- 
 
 142 
        '
- 
 
 143 
        If (IsNull(rsQry("root_file")) AND IsNull(rsQry("root_cause"))) Then
- 
 
 144 
            rowData = "Manually Excluded"
- 
 
 145 
            rowClass = "manualCause"
- 
 
 146 
 
- 
 
 147 
        ElseIf IsNull(rsQry("root_file")) Then
- 
 
 148 
           rowData = rsQry("root_cause")
- 
 
 149 
           If InStr(rowData, "no build env") Then
- 
 
 150 
               rowClass = "rootNoEnv"
- 
 
 151 
           Else
- 
 
 152 
               rowClass = "rootCause"
- 
 
 153 
           End If
- 
 
 154 
 
- 
 
 155 
        Else
- 
 
 156 
            rowClass = "rootFile"
- 
 
 157 
            rowData = "<a class=""txt_linked"" title=""" & rsQry("root_file") &_
- 
 
 158 
                      " Log file may have expired."" " &_
- 
 
 159 
                      "href=""" & shref_base & rsQry("root_file") & """>" &_
- 
 
 160 
                      "Build Failure Log File</a>"
- 
 
 161 
        End If
- 
 
 162 
 
- 
 
 163 
        Dim checkBoxData, checkBoxClass
- 
 
 164 
        If NiceInt(rsQry("root_pv_id"), -1) = -1   Then
- 
 
 165 
            checkBoxData = ""
- 
 
 166 
            checkBoxClass = "directInclude"
- 
 
 167 
        Else
- 
 
 168 
            checkBoxData = "disabled"
- 
 
 169 
            checkBoxClass = ""
- 
 
 170 
        End If
- 
 
 171 
 
- 
 
 172 
       %>
- 
 
 173 
          <tr class=" border <%=rowClass%>">
- 
 
 174 
             <td nowrap width="1%">
- 
 
 175 
                <a name="PkgName_<%=rsQry("pkg_name")%>">
- 
 
 176 
                <input class="<%=checkBoxClass%>" type="checkbox" value="<%=rsQry("pv_id")%>" name="pv_id_list" <%=checkBoxData%>>
- 
 
 177 
                </a>
- 
 
 178 
             </td>
- 
 
 179 
             <td><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsQry("pv_id")%>&rtag_id=<%=rsQry("rtag_id")%>" title="<%=rsQry("pv_description")%>"><%=rsQry("pkg_name")%></a></td>
- 
 
 180 
             <td><%=rsQry("pkg_version")%></td>
- 
 
 181 
             <td><%=rowData%></td>
- 
 
 182 
          </tr>
- 
 
 183 
       <%
- 
 
 184 
        rsQry.MoveNext
- 
 
 185 
       Loop
- 
 
 186 
 
- 
 
 187 
       query_string = " select pv.pv_id, pkg.pkg_name, pv.pkg_version, qkg.pkg_name, dnr.rtag_id, pv.pv_description"&_
- 
 
 188 
                      "   from do_not_ripple dnr, package_versions pv, package_versions qv, packages pkg, packages qkg"&_
- 
 
 189 
                      "  where dnr.rtag_id = "& parRtagId &_
- 
 
 190 
                      "    and pv.pv_id    = dnr.pv_id"&_
- 
 
 191 
                      "    and pkg.pkg_id  = pv.pkg_id"&_
- 
 
 192 
                      "    and qv.pv_id    = dnr.root_pv_id"&_
- 
 
 193 
                      "    and qkg.pkg_id  = qv.pkg_id"&_
- 
 
 194 
                      "    and nvl(dnr.root_pv_id, -1) > 0"&_
- 
 
 195 
                      "  order by pkg.pkg_name"
- 
 
 196 
       Dim rsQry2
- 
 
 197 
       Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
- 
 
 198 
       ' -- DISPLAY INDIRECTLY EXCLUDED PACKAGES
- 
 
 199 
       '--- Render rows ---
- 
 
 200 
        If rsQry2.recordCount > 0    Then
- 
 
 201 
        %>
- 
 
 202 
          <tr>
- 
 
 203 
          <td class='head err_alert'>Indirectly</td>
- 
 
 204 
          <td class='head'>Package</td>
- 
 
 205 
          <td class='head'>Version</td>
- 
 
 206 
          <td class='head'>Root Cause Package</td>
- 
 
 207 
          </tr>
- 
 
 208 
       <%
- 
 
 209 
        End If
- 
 
 210 
       Do While (NOT rsQry2.BOF) AND (NOT rsQry2.EOF)%>
- 
 
 211 
          <tr class=" border rootIndirect">
- 
 
 212 
             <td><input type="checkbox" value=0 disabled=true name="notused"></td>
- 
 
 213 
             <td><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsQry2(0)%>&rtag_id=<%=rsQry2(4)%>" title="<%=rsQry2(5)%>"><%=rsQry2(1)%></a></td>
- 
 
 214 
             <td><%=rsQry2(2)%></td>
- 
 
 215 
             <td><a href="#PkgName_<%=rsQry2(3)%>" style="text-decoration: none;">&raquo;&nbsp;<%=rsQry2(3)%></a></td>
245 
         </td>
 216 
          </tr>
- 
 
 217 
          <%
- 
 
 218 
          rsQry2.MoveNext
- 
 
 219 
       Loop%>
- 
 
 220 
         <tr class=foot>
- 
 
 221 
             <td><input id="toggleDirect"
- 
 
 222 
                        <%=Iif(rsQry.RecordCount > 0, "", " disabled ")%>
- 
 
 223 
                        type="checkbox" title="Toggle all visible directly excluded packages"></td>
- 
 
 224 
             <td colspan=3 class="right">
- 
 
 225 
                <%
- 
 
 226 
                Response.Write(objFormComponent.SubmitButton ( "Include", "name='IncludeSubmit' id='IncludeSubmit' class='form_btn' disabled style='color:silver' onClick=""return vixConfirm('Are you sure you want to include these packages for building?',{title:'Include Packages', post : 'FormName'})""" ))
- 
 
 227 
                %>
- 
 
 228 
             </td>
246 
      </tr>
 229 
         </tr>
247 
    </table>
 230 
     </table>
- 
 
 231 
    </div>
248 
    </td>
 232 
    </div>
249 
    </tr>
 233 
    </div>
250 
    </table>
 234 
    </div>
251 
    <!-- ACTION BUTTONS ---------------------------------------------->
 235 
    <!-- ACTION BUTTONS ---------------------------------------------->
252 
    <input type="hidden" name="action" value="include">
 236 
    <input type="hidden" name="action" value="include">
253 
    <!-- ACTION BUTTONS END  ------------------------------------------>
 237 
    <!-- ACTION BUTTONS END  ------------------------------------------>
- 
 
 238 
    <%Response.Write(objPMod.ComposeHiddenTags())%>
254 
    <%Call objFormComponent.FormEnd()%>
 239 
    <%Call objFormComponent.FormEnd()%>
255 
    <!-- FORM END ----------------------------------------------------->
 240 
    <!-- FORM END ----------------------------------------------------->
256 
    <%
 241 
    <%
257 
    rsQry.Close()
 242 
    rsQry.Close()
258 
    Set rsQry = nothing
 243 
    Set rsQry = nothing
Line 261... Line 246...
261 
End Sub
 246 
End Sub
262 
'-------------------------------------------------
 247 
'-------------------------------------------------
263 
'
248 
'
264 
Sub ShowDaemonStatus
 249 
Sub ShowDaemonStatus
265 
%>
 250 
%>
266 
<table class="embedded_table" style="margin-bottom:20px">
 251 
<div>
267 
    <tr>
 252 
    <div class="panel">
268 
        <td>
 253 
        <div class=rounded_box_caption>
269 
            <table class="rounded_box embedded_table">
 254 
                <table align="center" class="full_table">
270 
                <caption>
 255 
                   <tr>
271 
                    <table align="center" class="full_table">
 256 
                      <td nowrap class="form_ttl"><p>DAEMON STATUS INFORMATION</p>
272 
                       <tr>
 257 
                      </td>
273 
                          <td nowrap class="form_ttl"><p>DAEMON STATUS INFORMATION</p>
 258 
                      <td  valign="bottom" class="body_rowg">
274 
                          </td>
 259 
                        Last Build: <%=GetLastBuildAge(parRtagId)%> [<%=GetModifiedSeqNo(parRtagId)%>]
275 
                          <td  valign="bottom" class="body_rowg">
 260 
                      </td>
276 
                            Last Build: <%=GetLastBuildAge(parRtagId)%> [<%=GetModifiedSeqNo(parRtagId)%>]
 261 
                      <td align="right" valign="bottom">
277 
                          </td>
 262 
                        <a class="txt_linked" href="<%=scriptName%>?rtag_id=<%=parRtagId%>" title="Refresh Page">[Refresh]</a>
278 
                          <td align="right" valign="bottom">
 263 
                      </td>
279 
                            <a class="txt_linked" href="<%=scriptName%>?rtag_id=<%=parRtagId%>" title="Refresh Page">[Refresh]</a>
 264 
                   </tr>
280 
                          </td>
 265 
                </table>
281 
                       </tr>
 266 
        </div>
282 
                    </table>
 267 
        <div class='rounded_box'>
283 
                </caption>
 268 
            <div  class=listPanel>
284 
            <tr>
 269 
                <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
285 
                <td>
 270 
                <!--#include file="messages/_msg_inline.asp"-->
286 
                    <div class='round_box_pad'>
 271 
                <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
287 
                        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 272 
                <table width="100%" border="0" cellspacing="2" cellpadding="0">
288 
                        <!--#include file="messages/_msg_inline.asp"-->
 273 
                   <%
289 
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 274 
                   Dim bInactiveMachine : bInactiveMachine = false
290 
                        <br>
 275 
                   Dim indefinitelyPaused : indefinitelyPaused = Indefinitely_Paused()
291 
                        <table width="100%" border="0" cellspacing="2" cellpadding="0">
 276 
                   ' Insert a warning into the page if the build daemons are indefintely paused.
292 
                           <%
 277 
                   If indefinitelyPaused Then %>
293 
                           Dim bInactiveMachine : bInactiveMachine = false
 278 
                      <tr>
294 
                           Dim indefinitelyPaused : indefinitelyPaused = Indefinitely_Paused()
 279 
                         <span class='err_alert'>
295 
                           ' Insert a warning into the page if the build daemons are indefintely paused.
 280 
                            <font size='2'><b>WARNING: Build Daemons are all stopped - please contact an administrator</b></font>
296 
                           If indefinitelyPaused Then %>
 281 
                         </span>
297 
                              <tr>
 282 
                      </tr>
298 
                                 <span class='err_alert'>
 283 
                   <%End If
299 
                                    <font size='2'><b>WARNING: Build Daemons are all stopped - please contact an administrator</b></font>
 284 
                   %>
300 
                                 </span>
 285 
                   <td width="9%" valign="top"></td>
301 
                              </tr>
 286 
                   <thead>
302 
                           <%End If
 287 
                      <th>Daemon Host</th>
303 
                           %>
 288 
                      <th>Machine Type</th>
304 
                           <td width="9%" valign="top"></td>
 289 
                      <th>Mode</th>
305 
                           <tr>
 290 
                      <th>Run Level</th>
306 
                              <td valign="top" nowrap class="body_lcol">Daemon Host</td>
 291 
                      <th>Current Package</th>
307 
                              <td valign="top" nowrap class="body_lcol">Machine Type</td>
 292 
                      <th>Est Duration<%=Quick_Help("h_buildtime")%></th>
308 
                              <td valign="top" nowrap class="body_lcol">Mode</td>
 293 
                      <th>Last Change<%=Quick_Help("h_lastchange")%></th>
309 
                              <td valign="top" nowrap class="body_lcol">Run Level</td>
 294 
                      <th>Control State</th>
310 
                              <td valign="top" nowrap class="body_lcol">Current Package</td>
 295 
                   </thead>
311 
                              <td valign="top" nowrap class="body_lcol">Est Duration<%=Quick_Help("h_buildtime")%></td>
 296 
                   <%
312 
                              <td valign="top" nowrap class="body_lcol">Last Change<%=Quick_Help("h_lastchange")%></td>
 297 
                   ' Get Build Information for this Release
313 
                              <td valign="top" nowrap class="body_lcol">Control State</td>
 298 
                   query_string = _
314 
                           </tr>
 299 
                        "SELECT rc.rcon_id, display_name, gbe_value, daemon_mode, NVL(ACTIVE, 'U') AS ACTIVE," &_
315 
                           <%
 300 
                        "       rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) AS delta," &_
316 
                           ' Get Build Information for this Release
 301 
                        "       pk.pkg_name, rl.current_pv_id, pv.build_time, TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) AS build_delta" &_
317 
                           query_string = _
 302 
                        " FROM release_config rc," &_
318 
                                "SELECT rc.rcon_id, display_name, gbe_value, daemon_mode, NVL(ACTIVE, 'U') AS ACTIVE," &_
 303 
                        "   gbe_machtype gm," &_
319 
                                "       rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) AS delta," &_
 304 
                        "   build_machine_config bm," &_
320 
                                "       pk.pkg_name, rl.current_pv_id, pv.build_time, TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) AS build_delta" &_
 305 
                        "   run_level rl," &_
321 
                                " FROM release_config rc," &_
 306 
                        "   packages pk," &_
322 
                                "   gbe_machtype gm," &_
 307 
                        "   package_versions pv" &_
323 
                                "   build_machine_config bm," &_
 308 
                        " WHERE rc.rtag_id     = " & parRtagId &_
324 
                                "   run_level rl," &_
 309 
                        "  AND gm.gbe_id        = rc.gbe_id" &_
325 
                                "   packages pk," &_
 310 
                        "  AND rl.rcon_id(+)    = rc.rcon_id" &_
326 
                                "   package_versions pv" &_
 311 
                        "  AND rc.bmcon_id      =bm.bmcon_id(+)" &_
327 
                                " WHERE rc.rtag_id     = " & parRtagId &_
 312 
                        "  AND pk.pkg_id(+)     = rl.current_pkg_id_being_built" &_
328 
                                "  AND gm.gbe_id        = rc.gbe_id" &_
 313 
                        "  AND rl.current_pv_id = pv.pv_id(+)" &_
329 
                                "  AND rl.rcon_id(+)    = rc.rcon_id" &_
 314 
                        " ORDER BY bm.display_name, rc.rcon_id"
330 
                                "  AND rc.bmcon_id      =bm.bmcon_id(+)" &_
 315 
 
331 
                                "  AND pk.pkg_id(+)     = rl.current_pkg_id_being_built" &_
 316 
                   Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
332 
                                "  AND rl.current_pv_id = pv.pv_id(+)" &_
 317 
 
333 
                                " ORDER BY bm.display_name, rc.rcon_id"
 318 
                   Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
334 
 
 319 
                      Dim pkgName
335 
                           Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 320 
                      Dim pkgPvid
336 
 
 321 
                      Dim pkgBuildTime
337 
                           Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 322 
                      Dim currentRunLevel
338 
                              Dim pkgName
 323 
                      Dim daemonState
339 
                              Dim pkgPvid
 324 
                      Dim delta
340 
                              Dim pkgBuildTime
 325 
                      Dim PkgBuildDelta
341 
                              Dim currentRunLevel
 326 
                      Dim pkgId
342 
                              Dim daemonState
 327 
                      Dim bActive
343 
                              Dim delta
 328 
                      Dim estDuration
344 
                              Dim PkgBuildDelta
 329 
                      Dim daemonMode
345 
                              Dim pkgId
 330 
                      Dim lastChange
346 
                              Dim bActive
 331 
 
347 
                              Dim estDuration
 332 
                      rcon_id = rsQry("rcon_id")
348 
                              Dim daemonMode
333 
                      ' = rsQry("display_name")
349 
                              Dim lastChange
 334 
                      ' = rsQry("gbe_value")
350 
 
 335 
                      daemonMode = rsQry("daemon_mode")
351 
                              rcon_id = rsQry("rcon_id")
 336 
                      bActive = rsQry("ACTIVE")
352 
                              ' = rsQry("display_name")
 337 
                      daemonState = rsQry("pause")
353 
                              ' = rsQry("gbe_value")
 338 
                      currentRunLevel = rsQry("current_run_level")
354 
                              daemonMode = rsQry("daemon_mode")
 339 
                      pkgId = rsQry("current_pkg_id_being_built")
355 
                              bActive = rsQry("ACTIVE")
 340 
                      delta = rsQry("delta")
356 
                              daemonState = rsQry("pause")
 341 
                      pkgName = rsQry("pkg_name")
357 
                              currentRunLevel = rsQry("current_run_level")
 342 
                      pkgPvid = rsQry("current_pv_id")
358 
                              pkgId = rsQry("current_pkg_id_being_built")
 343 
                      pkgBuildTime = rsQry("build_time")
359 
                              delta = rsQry("delta")
 344 
                      PkgBuildDelta = rsQry("build_delta")
360 
                              pkgName = rsQry("pkg_name")
 345 
                      lastChange = NULL
361 
                              pkgPvid = rsQry("current_pv_id")
 346 
                      bInactiveMachine = FALSE
362 
                              pkgBuildTime = rsQry("build_time")
 347 
                      estDuration = NULL
363 
                              PkgBuildDelta = rsQry("build_delta")
 348 
 
364 
                              lastChange = NULL
 349 
                      If bActive = "N" Then bInactiveMachine = true
365 
                              bInactiveMachine = FALSE
 350 
                      If IsNull(daemonState) Then daemonState = 0
366 
                              estDuration = NULL
 351 
                      If daemonState = "2" Then pkgId = Null
367 
 
 352 
                      If IsNull(currentRunLevel) Then currentRunLevel = -1
368 
                              If bActive = "N" Then bInactiveMachine = true
 353 
                      If daemonMode = "M" AND not IsNull(pkgName) Then estDuration = pkgBuildTime & "[" & PkgBuildDelta & "]"
369 
                              If IsNull(daemonState) Then daemonState = 0
 354 
                      If bActive <> "U" Then lastChange = PrettyDelta(delta, daemonState,pkgName )
370 
                              If daemonState = "2" Then pkgId = Null
 355 
 
371 
                              If IsNull(currentRunLevel) Then currentRunLevel = -1
 356 
                      ' --- Now render HTML for this release configuration ---
372 
                              If daemonMode = "M" AND not IsNull(pkgName) Then estDuration = pkgBuildTime & "[" & PkgBuildDelta & "]"
 357 
                      %>
373 
                              If bActive <> "U" Then lastChange = PrettyDelta(delta, daemonState,pkgName )
 358 
                      <tr class=border>
374 
 
 359 
                         <td><%=rsQry("display_name")%></td>
375 
                              ' --- Now render HTML for this release configuration ---
 360 
                         <td><%=rsQry("gbe_value")%></td>
376 
                              %>
 361 
                         <td><%=Get_Daemon_Mode(daemonMode)%></td>
377 
                              <tr>
 362 
                         <td><%=Get_Run_Level(currentRunLevel, indefinitelyPaused, daemonState, bActive)%></td>
378 
                                 <td colspan="8" class=body_line></td>
 363 
                         <td><%=Get_Package_Name(pkgName,parRtagId,pkgPvid, daemonState, bActive)%></td>
379 
                              </tr>
 364 
                         <td><%=estDuration%></td>
380 
                              <tr>
 365 
                         <td><%=lastChange%></td>
381 
                                 <td nowrap class="body_rowg"><%=rsQry("display_name")%></td>
 366 
                         <td>
382 
                                 <td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
 367 
                            <%
383 
                                 <td nowrap class="body_rowg"><%=Get_Daemon_Mode(daemonMode)%></td>
 368 
                            If NOT indefinitelyPaused  Then
384 
                                 <td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused, daemonState, bActive)%></td>
 369 
                                If bActive = "U" Then
385 
                                 <td nowrap class="body_rowg"><%=Get_Package_Name(pkgName,parRtagId,pkgPvid, daemonState, bActive)%></td>
 370 
                                ElseIf bActive = "N" Then
386 
                                 <td nowrap class="body_rowg"><%=estDuration%></td>
 371 
                                    Call Action_Buttons ( "Daemon Unavailable" )
387 
                                 <td nowrap class="body_rowg"><%=lastChange%></td>
 372 
                                ElseIf daemonState = 0 Then
388 
                                 <td nowrap class="body_rowg">
 373 
                                    Call Action_Buttons_State ( "Daemon Pause", canControl )
389 
                                    <%
 374 
                                ElseIf daemonState = 1 Then
390 
                                    If NOT indefinitelyPaused  Then
 375 
                                    Call Action_Buttons_State ( "Daemon Resume", canControl )
391 
                                        If bActive = "U" Then
 376 
                                ElseIf daemonState = 2 Then
392 
                                        ElseIf bActive = "N" Then
 377 
                                    Call Action_Buttons_State ( "Daemon Start", canControl )
393 
                                            Call Action_Buttons ( "Daemon Unavailable" )
 378 
                                Else
394 
                                        ElseIf daemonState = 0 Then
 379 
                                    Call Action_Buttons_State ( "Daemon Resume", canControl )
395 
                                            Call Action_Buttons_State ( "Daemon Pause", canControl )
 380 
                              End If
396 
                                        ElseIf daemonState = 1 Then
 381 
                            Else
397 
                                            Call Action_Buttons_State ( "Daemon Resume", canControl )
 382 
                               %>Unavailable<%
398 
                                        ElseIf daemonState = 2 Then
 383 
                            End If
399 
                                            Call Action_Buttons_State ( "Daemon Start", canControl )
 384 
                            %>
400 
                                        Else
 385 
                         </td>
401 
                                            Call Action_Buttons_State ( "Daemon Resume", canControl )
 386 
                      </tr>
402 
                                      End If
 387 
                      <%
403 
                                    Else
 388 
                      rsQry.MoveNext
404 
                                       %>Unavailable<%
 389 
                   Loop
405 
                                    End If
 390 
                   %>
406 
                                    %>
 391 
                   <tr class=foot>
407 
                                 </td>
 392 
                     <td colspan=7>
408 
                              </tr>
 393 
                     <%If CheckConfigErrors(parRtagId) OR bInactiveMachine Then%><span class="err_alert">&nbsp;Daemon configuration errors detected</span>
409 
                              <%
 394 
                        <a class="txt_linked" href="release_config.asp?rtag_id=<%=parRtagId%>">
410 
                              rsQry.MoveNext
 395 
                            <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Goto Configuration">
411 
                           Loop
 396 
                        </a>
412 
                           %>
 397 
                     <%End If%>
413 
                           <tr class=form_bg_light>
 398 
                     </td>
414 
                             <td nowrap class="body_col" colspan=7>
 399 
                     <td>
415 
                             <%If CheckConfigErrors(parRtagId) OR bInactiveMachine Then%><span class="err_alert">&nbsp;Daemon configuration errors detected</span>
 400 
                     <%
416 
                                <a class="txt_linked" href="release_config.asp?rtag_id=<%=parRtagId%>">
 401 
                       If (rsQry.RecordCount > 0) AND NOT indefinitelyPaused Then
417 
                                    <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Goto Configuration">
 402 
                           Call Action_Buttons_State ( "Daemon Control All", objAccessControl.UserLogedIn AND canControl )
418 
                                </a>
 403 
                       Else
419 
                             <%End If%>
 404 
                         %>&nbsp<%
420 
                             </td>
 405 
                       End If
421 
                             <td valign="bottom" nowrap class="body_col">
 406 
                     %>
422 
                             <%
 407 
                     </td>
423 
                               If (rsQry.RecordCount > 0) AND NOT indefinitelyPaused Then
 408 
                   </tr>
424 
                                   Call Action_Buttons_State ( "Daemon Control All", objAccessControl.UserLogedIn AND canControl )
 409 
                   <%
425 
                               Else
 410 
                     rsQry.Close()
426 
                                 %>&nbsp<%
 411 
                     Set rsQry = nothing
427 
                               End If
 412 
                   %>
428 
                             %>
 413 
                </table>
429 
                             </td>
 414 
            </div>
430 
                           </tr>
 415 
        </div>
431 
                           <%
 416 
    </div>
432 
                             rsQry.Close()
 417 
</div>
433 
                             Set rsQry = nothing
 - 
 
434 
                           %>
 - 
 
435 
                        </table>
 - 
 
436 
                    </div>
 - 
 
437 
                </td>
 - 
 
438 
            </tr>
 - 
 
439 
        </table>
 - 
 
440 
    </td>
 - 
 
441 
</table>
 - 
 
442 
<%
 418 
<%
443 
End Sub
 419 
End Sub
444 
'-------------------------------------------------
 420 
'-------------------------------------------------
445 
'
 421 
'
446 
Sub ShowDaemonInstructions
 422 
Sub ShowDaemonInstructions
447 
%>
 423 
%>
448 
<!-- Daemon Instructions Display -->
 424 
<!-- Daemon Instructions Display -->
449 
<table class="embedded_table" style="margin-bottom:10px">
 425 
<div>
450 
    <tr>
 426 
    <div class=panel>
451 
        <td>
 427 
        <div class=rounded_box_caption>
452 
            <table class="rounded_box embedded_table">
 428 
            DAEMON INSTRUCTIONS FOR THIS RELEASE
453 
                <caption nowrap>DAEMON INSTRUCTIONS FOR THIS RELEASE</caption>
 429 
        </div>
454 
                <tr>
 430 
            <div class='rounded_box'>
455 
                    <td>
 431 
                <div class=listPanel>
456 
                        <div class='round_box_pad'>
 432 
                    <table width="100%" border="0" cellspacing="2" cellpadding="0">
457 
                            <table width="100%" border="0" cellspacing="2" cellpadding="0">
 433 
                       <thead>
458 
                               <tr>
 434 
                          <th>Operation</th>
459 
                                  <td align="left" nowrap class="body_lcol">Operation</td>
 435 
                          <th>Package</th>
460 
                                  <td align="left" nowrap class="body_lcol">Package</td>
 436 
                          <th>Version</th>
461 
                                  <td align="left" nowrap class="body_lcol">Version</td>
 437 
                          <th>Scheduled Time<%=Quick_Help("SchedTime")%>
462 
                                  <td align="left" nowrap class="body_lcol">Scheduled Time<%=Quick_Help("SchedTime")%>
 438 
                          <th>Repeat</th>
463 
                                  <td align="left" nowrap class="body_lcol">Repeat</td>
 439 
                          <th>In Progress</th>
464 
                                  <td align="left" nowrap class="body_lcol">In Progress</td>
 440 
                       </thead>
465 
                               </tr>
 441 
                       <%
466 
                               <%
 442 
                       Dim PkgVersion
467 
                               Dim PkgVersion
 443 
                       Dim UserName
468 
                               Dim UserName
 444 
                       Dim UserEmail
469 
                               Dim UserEmail
 445 
                       Dim bInProgress
470 
                               Dim bInProgress
 446 
                       Dim bIsOverdue
471 
                               Dim bIsOverdue
 447 
                       Dim bIsReady
472 
                               Dim bIsReady
 448 
 
473 
 
 449 
                       Set rsQry = OraDatabase.DbCreateDynaset( "SELECT DAEMON_INSTRUCTIONS_ID,"&_
474 
                               Set rsQry = OraDatabase.DbCreateDynaset( "SELECT DAEMON_INSTRUCTIONS_ID,"&_
 450 
                                                              "       OP_CODE,"&_
475 
                                                                      "       OP_CODE,"&_
 451 
                                                              "       RTAG_ID,"&_
476 
                                                                      "       RTAG_ID,"&_
 452 
                                                              "       PV_ID,"&_
477 
                                                                      "       PV_ID,"&_
 453 
                                                              "       SCHEDULED_DATETIME,"&_
478 
                                                                      "       SCHEDULED_DATETIME,"&_
 454 
                                                              "       REPEAT_SECS,"&_
479 
                                                                      "       REPEAT_SECS,"&_
 455 
                                                              "       ADDED_DATETIME,"&_
480 
                                                                      "       ADDED_DATETIME,"&_
 456 
                                                              "       USER_ID,"&_
481 
                                                                      "       USER_ID,"&_
 457 
                                                              "       IN_PROGRESS,"&_
482 
                                                                      "       IN_PROGRESS,"&_
 458 
                                                              "       (CASE WHEN SCHEDULED_DATETIME <= SYSDATE THEN 1 ELSE 0 END) AS READY,"&_
483 
                                                                      "       (CASE WHEN SCHEDULED_DATETIME <= SYSDATE THEN 1 ELSE 0 END) AS READY,"&_
 459 
                                                              "       (CASE WHEN (SCHEDULED_DATETIME + (1/144)) < SYSDATE THEN 1 ELSE 0 END) AS OVERDUE"&_
484 
                                                                      "       (CASE WHEN (SCHEDULED_DATETIME + (1/144)) < SYSDATE THEN 1 ELSE 0 END) AS OVERDUE"&_
 460 
                                                              "  FROM DAEMON_INSTRUCTIONS "&_
485 
                                                                      "  FROM DAEMON_INSTRUCTIONS "&_
 461 
                                                              "  WHERE RTAG_ID = "& parRtagId &_
486 
                                                                      "  WHERE RTAG_ID = "& parRtagId &_
 462 
                                                              "  ORDER BY PV_ID, SCHEDULED_DATETIME, DAEMON_INSTRUCTIONS_ID", ORADYN_DEFAULT )
487 
                                                                      "  ORDER BY PV_ID, SCHEDULED_DATETIME, DAEMON_INSTRUCTIONS_ID", ORADYN_DEFAULT )
 463 
                       While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
488 
                               While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 464 
 
489 
 
 465 
                          If IsNull(rsQry("IN_PROGRESS")) OR rsQry("IN_PROGRESS") = "0" Then
490 
                                  If IsNull(rsQry("IN_PROGRESS")) OR rsQry("IN_PROGRESS") = "0" Then
 466 
                             bInProgress = False
491 
                                     bInProgress = False
 467 
                          Else
492 
                                  Else
 468 
                             bInProgress = True
493 
                                     bInProgress = True
 469 
                          End If
494 
                                  End If
 470 
 
495 
 
 471 
                          ' only flag as overdue if time threshold has been met but the daemon has not marked the instruction as being in progress.
496 
                                  ' only flag as overdue if time threshold has been met but the daemon has not marked the instruction as being in progress.
 472 
                          If rsQry("OVERDUE") AND NOT bInProgress Then
497 
                                  If rsQry("OVERDUE") AND NOT bInProgress Then
 473 
                             bIsOverdue = True
498 
                                     bIsOverdue = True
 474 
                          Else
499 
                                  Else
 475 
                             bIsOverdue = False
500 
                                     bIsOverdue = False
 476 
                          End If
501 
                                  End If
 477 
 
502 
 
 478 
                          If rsQry("READY") Then
503 
                                  If rsQry("READY") Then
 479 
                             bIsReady = True
504 
                                     bIsReady = True
 480 
                          Else
505 
                                  Else
 481 
                             bIsReady = False
506 
                                     bIsReady = False
 482 
                          End If
507 
                                  End If
 483 
 
508 
 
 484 
                          ' Get as much info about the package as we can
509 
                                  ' Get as much info about the package as we can
 485 
                          Dim PkgId: PkgId = 0
510 
                                  Dim PkgId: PkgId = 0
 486 
                          Dim PkgName : PkgName = "N/A"
511 
                                  Dim PkgName : PkgName = "N/A"
 487 
                          If (NOT IsNull(rsQry("PV_ID"))) AND (rsQry("PV_ID") <> "") Then
512 
                                  If (NOT IsNull(rsQry("PV_ID"))) AND (rsQry("PV_ID") <> "") Then
 488 
                             Call Get_Pkg_Short_Info(rsQry("PV_ID"), PkgId, PkgName, PkgVersion, NULL, NULL, NULL)
513 
                                     Call Get_Pkg_Short_Info(rsQry("PV_ID"), PkgId, PkgName, PkgVersion, NULL, NULL, NULL)
 489 
                          End If
514 
                                  End If
 490 
                          %>
515 
                                  %>
 491 
                          <tr class=border>
516 
                                  <tr>
 492 
                             <td>
517 
                                     <td colspan="6" class=body_line></td>
 493 
                                <%=DaemonInstructionOperationName(rsQry("OP_CODE"))%>
518 
                                  </tr>
 494 
                             </td>
519 
                                  <tr>
 495 
 
520 
                                     <td align="left" valign="top" class="body_rowg nowrap">
 496 
                             <td>
521 
                                        <%=DaemonInstructionOperationName(rsQry("OP_CODE"))%>
 497 
                                <%If (NOT IsNull(rsQry("PV_ID"))) AND (rsQry("PV_ID") <> "") Then%>
522 
                                     </td>
 498 
                                   <a href='fixed_issues.asp?rtag_id=<%=rsQry("RTAG_ID")%>&pv_id=<%=rsQry("PV_ID")%>'><%=PkgName%>
523 
 
 499 
                                <%Else%>
524 
                                     <td align="left" valign="top" class="body_rowg">
 500 
                                   <%=PkgName%>
525 
                                        <%If (NOT IsNull(rsQry("PV_ID"))) AND (rsQry("PV_ID") <> "") Then%>
 501 
                                <%End If%>
526 
                                           <a href='fixed_issues.asp?rtag_id=<%=rsQry("RTAG_ID")%>&pv_id=<%=rsQry("PV_ID")%>'><%=PkgName%>
 502 
                             </td>
527 
                                        <%Else%>
 503 
 
528 
                                           <%=PkgName%>
 504 
                             <td >
529 
                                        <%End If%>
 505 
                                <%=PkgVersion%>
530 
                                     </td>
 506 
                             </td>
531 
 
 507 
 
532 
                                     <td align="left" valign="top" class="body_rowg">
 508 
                             <td <%If bIsOverdue Then%>style=color:Red<%Elseif bIsReady Then%>style=color:Green<%End If%>><%=DisplayDateTime(rsQry("SCHEDULED_DATETIME"))%></td>
533 
                                        <%=PkgVersion%>
 509 
 
534 
                                     </td>
 510 
                             <td><%=DaemonInstructionRepeatString(rsQry("OP_CODE"), rsQry("REPEAT_SECS"))%></td>
535 
 
 511 
 
536 
                                     <td align="left" valign="top" class="body_rowg" <%If bIsOverdue Then%>style=color:Red<%Elseif bIsReady Then%>style=color:Green<%End If%>><%=DisplayDateTime(rsQry("SCHEDULED_DATETIME"))%></td>
 512 
                             <td>
537 
 
 513 
                                <%If bInProgress Then%>
538 
                                     <td align="left" valign="top" class="body_rowg"><%=DaemonInstructionRepeatString(rsQry("OP_CODE"), rsQry("REPEAT_SECS"))%></td>
 514 
                                   YES
539 
 
 515 
                                <%Else%>
540 
                                     <td align="left" valign="top" class="body_rowg">
 516 
                                   NO
541 
                                        <%If bInProgress Then%>
 517 
                                <%End If%>
542 
                                           YES
 518 
                             </td>
543 
                                        <%Else%>
 519 
                          </tr>
544 
                                           NO
 520 
                          <%
545 
                                        <%End If%>
 521 
                          rsQry.MoveNext()
546 
                                     </td>
 522 
                       Wend
547 
                                  </tr>
 523 
                       rsQry.Close()
548 
                                  <%
 524 
                       Set rsQry = nothing
549 
                                  rsQry.MoveNext()
 525 
                       %>
550 
                               Wend
 526 
                    </table>
551 
                               rsQry.Close()
 527 
                </div>
552 
                               Set rsQry = nothing
 528 
            </div>
553 
                               %>
 529 
    </div>
554 
                            </table>
 530 
</div>
555 
                        </div>
 - 
 
556 
                    </td>
 - 
 
557 
                </tr>
 - 
 
558 
            </table>
 - 
 
559 
        </td>
 - 
 
560 
    </tr>
 - 
 
561 
</table>
 - 
 
562 
<%
 531 
<%
563 
End Sub
 532 
End Sub
564 
%>
 533 
%>
565 
<html>
 534 
<html>
566 
   <head>
 535 
   <head>