Rev 157 | Blame | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| Build Status Information |'| |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/_form_window_common.asp"--><!--#include file="_action_buttons.asp"--><!--#include file="class/classActionButtonControl.asp"--><!--#include file="common/daemon_instructions.asp"--><%' Set rfile parameter. This is a return page after LoginCall objPMod.StoreParameter ( "rfile", "rtree.asp" )objPMod.PersistInQryString("proj_id")'------------ ACCESS CONTROL ------------------'Let users view the build status without being logged in, but as soon as they try and submit the form, check'their login status.If Request("action") <> "" AND NOT objAccessControl.UserLogedIn Then%><!--#include file="_access_control_login.asp"--><!--#include file="_access_control_project.asp"--><%End If%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim objSortHelperDim rsQryDim parRtagIdDim parSourceRtagIdDim query_stringDim objBtnControlDim rcon_id'------------ Constants Declaration -----------'------------ Variable Init -------------------parRtagId = Request("rtag_id")objPMod.PersistInQryString("rtag_id")Set objBtnControl = New ActionButtonControl'----------------------------------------------%><%'--------------------------------------------------------------------------------------------------------------------------Sub GetFormDetails ( parRtagId, ByRef outobjDetails )Dim rsQry, queryOraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBERquery = _" SELECT * "&_" FROM RELEASE_TAGS rt"&_" WHERE rt.RTAG_ID = :RTAG_ID"Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )OraDatabase.Parameters.Remove "RTAG_ID"If rsQry.RecordCount > 0 ThenoutobjDetails.Item ("rtag_id") = rsQry("rtag_id")outobjDetails.Item ("rtag_name") = rsQry("rtag_name")ElseErr.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagIdEnd IfrsQry.CloseSet rsQry = NothingEnd Sub'--------------------------------------------------------------------------------------------------------------------------Sub RipplePackage (flag)On Error Resume NextobjEH.ErrorRedirect = TRUEOraDatabase.Parameters.Add "PV_ID_LIST", Request("pv_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBERobjEH.TryORA ( OraSession )If flag ThenOraDatabase.ExecuteSQL _"BEGIN Ripple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID ); END;"ElseOraDatabase.ExecuteSQL _"BEGIN UnRipple_Package( :PV_ID_LIST, :RTAG_ID, :USER_ID ); END;"End IfobjEH.CatchORA ( OraSession )OraDatabase.Parameters.Remove "PV_ID_LIST"OraDatabase.Parameters.Remove "RTAG_ID"OraDatabase.Parameters.Remove "USER_ID"End Sub'--------------------------------------------------------------------------------------------------------------------------Function Get_Daemon_Mode( cMode )If cMode = "S" ThenGet_Daemon_Mode = "Slave"ElseIf cMode = "M" ThenGet_Daemon_Mode = "Master"End IfEnd Function'--------------------------------------------------------------------------------------------------------------------------Function Get_Run_Level( nLevel, indefinitePause )If indefinitePause ThenGet_Run_Level = "<span class='err_alert'>Stopped</span>"ElseIf nLevel = 1 ThenGet_Run_Level = "Cannot Continue"ElseIf nLevel = 2 ThenGet_Run_Level = "Paused"ElseIf nLevel = 3 ThenGet_Run_Level = "Actively engaged in a build"ElseIf nLevel = 4 ThenGet_Run_Level = "Idle"ElseIf nLevel = 5 ThenGet_Run_Level = "Waiting"ElseIf nLevel = 6 ThenGet_Run_Level = "Publishing"ElseGet_Run_Level = "<span class='err_alert'>Unknown!</span>"End IfEnd IfEnd Function'--------------------------------------------------------------------------------------------------------------------------Function Get_Package_Name( sPackageName )If IsNull(sPackageName) ThenGet_Package_Name = "None"ElseGet_Package_Name = sPackageNameEnd IfEnd Function'--------------------------------------------------------------------------------------------------------------------------%><%'------------ RUN BEFORE PAGE RENDER ----------' --- Get Form details from DB ---Call GetFormDetails ( Request("rtag_id"), objFormCollector )' --- Load Validation Rules ---'Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase ) ' Load Validation Rules' --- Enter Form Validation Rule Changes here... ----'----------------------------------------------------' --- RUN onPostBack ---If Request("action") <> "" AND objAccessControl.UserLogedIn ThenIf objEH.Finally ThenIf Request("action") = "include" ThenCall RipplePackage (True)ElseCall OpenInWindow ( "dependencies.asp?rtag_id="& parRtagId )End IfEnd IfEnd If'----------------------------------------------%><html><head><title>Release Manager</title><meta http-equiv="Pragma" content="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="images/common.js"></script><!-- TIPS --><script language="JavaScript" src="images/tipster.js"></script><script language="JavaScript" src="images/_help_tips.js"></script><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="isChecked('pv_id_list','submit');"><!-- MENU LAYERS --------------------------------------><div id="popmenu" class="menuskin" onmouseover="clearhidemenu();highlightmenu(event,'on')" onmouseout="highlightmenu(event,'off');dynamichide(event)"></div><!-- TIPS LAYERS --------------------------------------><div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10"> </div><!-----------------------------------------------------><!-- HEADER --><!--#include file="_header.asp"--><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><%'-- FORM START ---------------------------------------------------------------------------------------------------------objFormComponent.FormName = "FormName"objFormComponent.Action = ScriptName &"?rtag_id="& parRtagIdCall objFormComponent.FormStart()%><tr><td width="1" background="images/bg_home_orange.gif" valign="top"></td><td width="100%" rowspan="1" align="center" valign="top" bgcolor="#EEEFEF"><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="body_txt"></td></tr></table><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td nowrap class="form_ttl"><p> </p><p>BUILD STATUS INFORMATION</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"><!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ --><!--#include file="messages/_msg_inline.asp"--><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><br><table width="100%" border="0" cellspacing="2" cellpadding="0"><span class='err_alert'><font size='2'><b>Packages Excluded From Build (Daemon Build Failure)</b></font></span><tr><td background="images/bg_table_col.gif" class="err_alert"><b>Directly</b></td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE NAME</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE VERSION</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ROOT CAUSE(<a class="txt_linked" title="" href="messages/msg_firefox_unc_downloading.asp">firefox users</a><%=Quick_Help("firefox_root_cause")%>)</td></tr><%query_string = " select pkg.pkg_name, pv.pkg_version, pv.pv_id, dnr.rtag_id, dnr.root_cause, dnr.root_file, pv.pv_description"&_" from do_not_ripple dnr, package_versions pv, packages pkg"&_" where dnr.rtag_id = "& parRtagId &_" and pv.pv_id = dnr.pv_id"&_" and pkg.pkg_id = pv.pkg_id"&_" and dnr.root_pv_id is null"&_" order by pkg_name"Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )'--- Render rows ---Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%><tr><td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td></tr><tr><td nowrap width="1%"><!-- The use of the isChecked() javascript function below, enables the submit button if any checkboxes are checked, --><!-- else it will disable the submit button. The function is badly named, but nevertheless, that is what it does. --><input type="checkbox" value="<%=rsQry("pv_id")%>" name="pv_id_list" id="pv_id_list" onClick="isChecked('pv_id_list','submit');"></td><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><td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td><%' root_file, if supplied, indicates a build failure log file exists' this should always prevail over the textual root_causeIf IsNull(rsQry("root_file")) Then%><td nowrap class="body_rowg"><%=rsQry("root_cause")%></td><%Else%><td nowrap class="body_rowg"><a class="txt_linked" title="<%=rsQry("root_file")%> Log file may have expired." href="file://///auperaunx26/abtlog/<%=rsQry("root_file")%>">Build Failure Log File</a></td><%End If%></tr><%rsQry.MoveNextLoop%><tr><td background="images/bg_table_col.gif" class="err_alert"><b>Indirectly</b></td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE NAME</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE VERSION</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ROOT CAUSE PACKAGE NAME</td></tr><%query_string = " select pv.pv_id, pkg.pkg_name, pv.pkg_version, qkg.pkg_name, dnr.rtag_id, pv.pv_description"&_" from do_not_ripple dnr, package_versions pv, package_versions qv, packages pkg, packages qkg"&_" where dnr.rtag_id = "& parRtagId &_" and pv.pv_id = dnr.pv_id"&_" and pkg.pkg_id = pv.pkg_id"&_" and qv.pv_id = dnr.root_pv_id"&_" and qkg.pkg_id = qv.pkg_id"&_" and dnr.root_pv_id is not null"&_" order by pkg.pkg_name"Dim rsQry2Set rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )'--- Render rows ---Do While (NOT rsQry2.BOF) AND (NOT rsQry2.EOF)%><tr><td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td></tr><tr><td nowrap width="1%"><input type="checkbox" value=0 disabled=true name="notused" id="notused"></td><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><td nowrap class="body_rowg"><%=rsQry2(2)%></td><td nowrap class="body_rowg"><%=rsQry2(3)%></td></tr><%rsQry2.MoveNextLoop%></table></td><td background="images/lbox_bgside_white.gif"> </td></tr><%If rsQry.RecordCount > 0 Then%><tr><td background="images/bg_action_norm.gif"></td><td align="right" background="images/bg_action_norm.gif"><%Response.Write(objFormComponent.SubmitButton ( "Include", "name='submit' id='submit' class='form_btn' disabled style='color:silver' onClick='return confirmAction(""Are you sure you want to include these packages for building?"")'" ))Response.Write(objPMod.ComposeHiddenTags())%></td><td background="images/bg_action_norm.gif"><img src="images/h_trsp_dot.gif" width="5" height="30"></td></tr><%End If%><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><!-- ACTION BUTTONS ----------------------------------------------><input type="hidden" name="action" value="include"><!-- ACTION BUTTONS END ------------------------------------------></td><td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td></tr><%Call objFormComponent.FormEnd()rsQry.Close()Set rsQry = nothingrsQry2.Close()Set rsQry2 = nothing'-- FORM END ----------------------------------------------------------------------------------------------------------------%><tr><td width="1" background="images/bg_home_orange.gif" valign="top"></td><td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><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> </p><p>DAEMON STATUS INFORMATION</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"><!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ --><!--#include file="messages/_msg_inline.asp"--><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><br><table width="100%" border="0" cellspacing="2" cellpadding="0"><%Dim indefinitelyPausedindefinitelyPaused = FALSE' Insert a warning into the page if the build daemons are indefintely paused.query_string = " select * from run_level_schedule rls where rls.indefinite_pause = 'P'"Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )If rsQry.RecordCount > 0 ThenindefinitelyPaused = TRUE %><tr><span class='err_alert'><font size='2'><b>WARNING: Build Daemons are all stopped - please contact an administrator</b></font></span></tr><%End IfrsQry.Close()Set rsQry = nothing%><td width="9%" valign="top"></td><tr><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Daemon Host</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE Machtype</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Mode</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Run Level</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Current Package</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Last Change<br>Delta (secs)</td><td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Switch State</td></tr><%' Get the number of release configurations for this RTAG_ID, and iterate through themquery_string = " select * from release_config rc, gbe_machtype gm, build_machine_config bm"&_" where rc.rtag_id = "& parRtagId &_" and gm.gbe_id = rc.gbe_id"&_" and rc.daemon_hostname = bm.machine_hostname(+)" &_" order by rc.daemon_hostname"Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)rcon_id = rsQry("rcon_id")Dim pkgNameDim currentRunLevel' For this release configuration, get its entry from the run_level table. This table may not' have an entry so we must handle that outcome too.query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_" TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_" from run_level rl"&_" where rl.rcon_id = "& rcon_idSet rsQry2 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )currentRunLevel = -1If (rsQry2.RecordCount > 0) Then' Get the run level from the run_level tablecurrentRunLevel = rsQry2("current_run_level")End If' If we got an entry from the run_level table, try and use the pkg_id it contains, to obtain a' package name from the packages tableDim rsQry3pkgName = NULLIf (rsQry2.RecordCount > 0) AND NOT IsNull(rsQry2("current_pkg_id_being_built")) Thenquery_string = " select pkg_name from run_level rl, packages pk"&_" where rl.rcon_id = "& rcon_id &_" and rl.current_pkg_id_being_built = pk.pkg_id"Set rsQry3 = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )If (rsQry3.RecordCount > 0) ThenpkgName = rsQry3("pkg_name")End IfrsQry3.Close()Set rsQry3 = nothingEnd If' --- Now render HTML for this release configuration ---%><tr><td colspan="6" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td></tr><tr><td nowrap class="body_rowg"><%=rsQry("display_name")%></td><td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td><td nowrap class="body_rowg"><%=Get_Daemon_Mode(rsQry("daemon_mode"))%></td><td nowrap class="body_rowg"><%=Get_Run_Level(currentRunLevel, indefinitelyPaused)%></td><td nowrap class="body_rowg"><%=Get_Package_Name(pkgName)%></td><td nowrap class="body_rowg"><%=rsQry2("delta")%></td><td nowrap class="body_rowg"><%If (rsQry2.RecordCount > 0) AND NOT indefinitelyPaused ThenIf objAccessControl.UserLogedIn ThenIf IsNull(rsQry2("pause")) ThenCall Action_Buttons ( "Daemon Pause" )ElseCall Action_Buttons ( "Daemon Resume" )End IfElseIf IsNull(rsQry2("pause")) ThenCall Action_Buttons ( "Daemon Pause Disabled" )ElseCall Action_Buttons ( "Daemon Resume Disabled" )End IfEnd IfElse%>Unavailable<%End If%></td></tr><%rsQry2.Close()Set rsQry2 = nothingrsQry.MoveNextLooprsQry.Close()Set rsQry = nothing%></table></td><td background="images/lbox_bgside_white.gif"> </td></tr><tr><input type="hidden" name="action" value="true"><%=objPMod.ComposeHiddenTags()%><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><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> </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 PkgIdDim PkgVersionDim UserNameDim UserEmailDim bInProgressDim bIsOverdueDim bIsReadySet 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" ThenbInProgress = FalseElsebInProgress = TrueEnd 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 ThenbIsOverdue = TrueElsebIsOverdue = FalseEnd IfIf rsQry("READY") ThenbIsReady = TrueElsebIsReady = FalseEnd If' Get as much info about the package as we canPkgId = 0PkgName = "N/A"PkgVersion = "N/A"If (NOT IsNull(rsQry("PV_ID"))) AND (rsQry("PV_ID") <> "") ThenCall 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()WendrsQry.Close()Set rsQry = nothing%></table></td><td background="images/lbox_bgside_white.gif"> </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></td><td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td></tr><tr><td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td><td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="350"></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html><%Call Destroy_All_Objects%>