Subversion Repositories DevTools

<!--#include file="common/daemon_instructions.asp"-->

                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Last Change<br>Delta (secs)</td>

                              query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_

                                             "        TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_

                                 <td nowrap class="body_rowg"><%=rsQry2("delta")%></td>

               <table width="10" border="0" cellspacing="0" cellpadding="0">

                  <tr>

                     <td width="1%"></td>

                     <td width="100%">

                        <table width="100%" border="0" cellspacing="0" cellpadding="0">

                           <tr>

                              <td nowrap class="form_ttl"><p>&nbsp;</p>

                                 <p>DAEMON INSTRUCTIONS FOR THIS RELEASE</p>

                              </td>

                              <td align="right" valign="bottom"></td>

                           </tr>

                        </table>

                     </td>

                     <td width="1%"></td>

                  </tr>

                  <tr>

                     <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>

                     <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>

                     <td align="right" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>

                  </tr>

                  <tr>

                     <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>

                     <td bgcolor="#FFFFFF" valign="top">

                        <table width="100%" border="0" cellspacing="2" cellpadding="0">

                           <tr>

                              <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">OPERATION</td>

                              <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE</td>

                              <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">VERSION</td>

                              <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED TIME<br>(<SPAN style=color:Red>Red</SPAN> = overdue)<br>(<SPAN style=color:Green>Green</SPAN> = ready)</td>

                              <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>

                              <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">IN PROGRESS</td>

                           </tr>

                           <%

                           Dim PkgId

                           Dim PkgVersion

                           Dim UserName

                           Dim UserEmail

                           Dim bInProgress

                           Dim bIsOverdue

                           Dim bIsReady

                           Set rsQry = OraDatabase.DbCreateDynaset( "SELECT DAEMON_INSTRUCTIONS_ID,"&_

                                                                  "       OP_CODE,"&_

                                                                  "       RTAG_ID,"&_

                                                                  "       PV_ID,"&_

                                                                  "       SCHEDULED_DATETIME,"&_

                                                                  "       REPEAT_SECS,"&_

                                                                  "       ADDED_DATETIME,"&_

                                                                  "       USER_ID,"&_

                                                                  "       IN_PROGRESS,"&_

                                                                  "       (CASE WHEN SCHEDULED_DATETIME <= SYSDATE THEN 1 ELSE 0 END) AS READY,"&_

                                                                  "       (CASE WHEN (SCHEDULED_DATETIME + (1/144)) < SYSDATE THEN 1 ELSE 0 END) AS OVERDUE"&_

                                                                  "  FROM DAEMON_INSTRUCTIONS "&_

                                                                  "  WHERE RTAG_ID = "& parRtagId &_

                                                                  "  ORDER BY PV_ID, SCHEDULED_DATETIME, DAEMON_INSTRUCTIONS_ID", ORADYN_DEFAULT )

                           While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

                              If IsNull(rsQry("IN_PROGRESS")) OR rsQry("IN_PROGRESS") = "0" Then

                                 bInProgress = False

                              Else

                                 bInProgress = True

                              End If

                              ' only flag as overdue if time threshold has been met but the daemon has not marked the instruction as being in progress.

                              If rsQry("OVERDUE") AND NOT bInProgress Then

                                 bIsOverdue = True

                              Else

                                 bIsOverdue = False

                              End If

                              If rsQry("READY") Then

                                 bIsReady = True

                              Else

                                 bIsReady = False

                              End If

                              ' Get as much info about the package as we can

                              PkgId = 0

                              PkgName = "N/A"

                              PkgVersion = "N/A"

                              If (NOT IsNull(rsQry("PV_ID"))) AND (rsQry("PV_ID") <> "") Then

                                 Call Get_Pkg_Short_Info(rsQry("PV_ID"), PkgId, PkgName, PkgVersion, NULL, NULL, NULL)

                              End If

                              %>

                              <tr>

                                 <td align="left" valign="top" class="body_txt">

                                    <%=DaemonInstructionOperationName(rsQry("OP_CODE"))%>

                                 </td>

                                 <td align="left" valign="top" class="body_txt">

                                    <%If (NOT IsNull(rsQry("PV_ID"))) AND (rsQry("PV_ID") <> "") Then%>

                                       <a href='fixed_issues.asp?rtag_id=<%=rsQry("RTAG_ID")%>&pv_id=<%=rsQry("PV_ID")%>'><%=PkgName%>

                                    <%Else%>

                                       <%=PkgName%>

                                    <%End If%>

                                 </td>

                                 <td align="left" valign="top" class="body_txt">

                                    <%=PkgVersion%>

                                 </td>

                                 <td align="left" valign="top" class="body_txt" <%If bIsOverdue Then%>style=color:Red<%Elseif bIsReady Then%>style=color:Green<%End If%>><%=EuroDateTime(rsQry("SCHEDULED_DATETIME"))%></td>

                                 <td align="left" valign="top" class="body_txt"><%=DaemonInstructionRepeatString(rsQry("OP_CODE"), rsQry("REPEAT_SECS"))%></td>

                                 <td align="left" valign="top" class="body_txt">

                                    <%If bInProgress Then%>

                                       YES

                                    <%Else%>

                                       NO

                                    <%End If%>

                                 </td>

                              </tr>

                              <tr>

                                 <td colspan="6" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>

                              </tr>

                              <%

                              rsQry.MoveNext()

                           Wend

                           rsQry.Close()

                           Set rsQry = nothing

                           %>

                        </table>

                     </td>

                     <td background="images/lbox_bgside_white.gif">&nbsp;</td>

                  </tr>

                  <tr>

                     <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>

                     <td background="images/lbox_bg_blue.gif"></td>

                     <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>

                  </tr>

               </table>