WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/common/_package_common.asp

 %>
 <!--#include file="../class/classTemplateManager.asp"-->
 <!--#include file="../class/classTabControl.asp"-->
 <!--#include file="../class/classActionButtonControl.asp"-->
 <!--#include file="daemon_instructions.asp"-->
+<!--#include file="daemon_status.asp"-->
 <%
 '------------ VARIABLE DEFINITION -------------
 Dim parPv_id
 Dim nEnvTab         ' remember environment tab
 Dim objBtnControl
 '----------------------------------------------
 %>
 <%
 '-----------------------------------------------------------------------------------------------------------------------------
-Sub RenderPackageProperties ()
+Sub RenderPackageProperties (irtag_id)
 %>
+   <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
-      <td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td>
+     <td>
-      <td valign="bottom" background="images/bg_lght_gray.gif" nowrap class="body_txt">
          <%
          If pkgInfoHash.Item ("is_patch") = "Y" Then
             '--- PATCH ---
             Response.write "<br><a href='patches.asp?pv_id="& pkgInfoHash.Item ("patch_parent_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked'><img src='icons/i_caretone.gif' hspace='2' border='0' align='absmiddle'>Back To "& pkgInfoHash.Item ("pkg_name") &"</a><br><br>"
             Else
                Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_version") &"</SPAN>"
             End If
          Else
             '--- PACKAGE ---
+            Response.write "<table cellspacing=1 cellpadding=0>"
+            Response.write "<tr>"
+            Response.write "<td>"
+            Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") & "&nbsp;" & "&nbsp;" & "</SPAN>"
+            Response.write "</td>"
+            Response.write "<td>"
+            ' dlocked: Y - release, N - unlocked, P - pending, A - approved, R - rejected
             If pkgInfoHash.Item ("dlocked") = "Y" Then
+              Response.write "<img src='images/i_locked.gif' width='13' height='15' border='0' title='Released and locked'>"
-               If pkgInfoHash.Item ("deprecated_state") = 6 Then
+            ElseIf pkgInfoHash("is_released") Then
-                  Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'>"&enum_imgDeprecated&"</SPAN>"
+              Response.write "<img src='images/i_unlocked.gif' width='16' height='15' border='0' title='Released and unlocked'>"
+            ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
+              Response.write enum_imgPending
+            ElseIf (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") Then
+              'ElseIf (irtag_id<>"") Then
+              Response.write enum_imgBuilding
+            End If
+            Response.write "</td>"
+            Response.write "<td>"
-               ElseIf pkgInfoHash.Item ("product_state") = 4 Then
+            If pkgInfoHash.Item ("product_state") = 4 Then
+              Response.write enum_imgProductRejected
+            End If
+            Response.write "</td>"
+            Response.write "<td>"
+            Dim state_icon
+            If Not IsNull(pkgInfoHash.Item ("deprecated_state")) Then
+              Select Case CInt(pkgInfoHash.Item ("deprecated_state"))
+                Case enumPKG_STATE_DEPRECATED
+                  state_icon = enum_imgDeprecated
+                Case enumPKG_STATE_DEPRECATED_DEPENDENT
-                  Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'>"&enum_imgProductRejected&"</SPAN>"
+                  state_icon = enum_imgDeprecatedDependent
-               Else
+              End Select
+              Response.write state_icon
+            End If
+            Response.write "</td>"
+            Response.write "<td>"
-                  Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'></SPAN>"
+            If Not (IsNull(pkgInfoHash.Item ("pkg_state")) or pkgInfoHash.Item ("pkg_state") = 0) Then
+              Select Case CInt(pkgInfoHash.Item ("pkg_state"))
+                Case enumPKG_STATE_MAJOR
+                  state_icon = enum_imgCritical
+                Case enumPKG_STATE_MINOR
+                  state_icon = enum_imgWarning
+                Case enumPKG_STATE_MAJOR_READY
+                  state_icon = enum_imgCReady
+                Case enumPKG_STATE_MINOR_READY
+                  state_icon = enum_imgWReady
+                Case enumPKG_NOT_FOUND
+                  state_icon = enum_imgNotFound
+                Case enumPKG_STATE_NEW_PATCH
+                  state_icon = enum_imgPatchAvailable
+                Case enumPKG_ADVISORY_RIPPLE
+                  state_icon = enum_imgAR
+                Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
+                  state_icon = enum_imgARD
+                Case enumPKG_PEGGED_VERSION
+                  state_icon = enum_imgGreenPin
+              End Select
+              Response.write state_icon
-               End If
+            End If
+            Response.write "</td>"
+            Response.write "<td>"
+            'build_type', and a value of 'M' = manual and 'A' = auto
+            If pkgInfoHash.Item("build_type") = "M" Then
+              Response.write "<img src='icons/i_manual.gif' width='12' height='14' border='0' title='Manual package'>"
-            Else
+            End If
+            Response.write "</td>"
+            Response.write "<td>"
+            ' check if a daemon instruction exists for this package
+            Dim sDmInstr
+            sDmInstr = GetOpCodeListForRtagIdAndPvId( "", Request("rtag_id"), pkgInfoHash.Item("pv_id"), "" )
+            If sDmInstr <> "" Then
-               Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"</SPAN>"
+              Response.write "<img src='icons/i_daemon_instr.gif' width='19' height='17' border='0' title='Daemon instruction:" & "&#13;" & sDmInstr & "&#13;" & "Click to view details." & "' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
             End If
+            Response.write "</td>"
+            Response.write "<td>"
+            ' check if this package has a build failure file
+            If pkgInfoHash("has_build_failure") Then
+              Response.write "<img src='icons/i_build_failure.gif' width='19' height='17' border='0' title='Package build failure" & "&#13;" & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
+            ElseIf pkgInfoHash("is_excluded") Then
+            ' check if this package has been excluded from the build
+              Response.write "<img src='icons/i_build_exclusion.gif' width='19' height='17' border='0' title='Package excluded from build" & "&#13;" & "Click to view details." &"' onClick=""location.href='build_status.asp?rtag_id=" & irtag_id & "';"" >"
+            End If
+            Response.write "</td>"
+            Response.write "<td>"
+            Response.write "</td>"
+            Response.write "</tr>"
+            Response.write "</table>"
          End If
          %>
-         <br><br>
-      </td>
-      <td background="images/bg_lght_gray.gif">&nbsp;</td>
+      </td>
    </tr>
    <tr>
-      <td background="images/bg_lght_gray.gif"></td>
-      <td background="images/bg_lght_gray.gif" style=color:Red>
+      <td style=color:Red>
-         <%=GetOpCodeListForRtagIdAndPvId( "NOTE: '", Request("rtag_id"), pkgInfoHash.Item("pv_id"), "' has been requested" )%>
+         <%'=GetOpCodeListForRtagIdAndPvId( "NOTE: '", Request("rtag_id"), pkgInfoHash.Item("pv_id"), "' has been requested" )%>
-      <td>
+      </td>
+   </tr>
+   </table>
+<%
+End Sub
+'-----------------------------------------------------------------------------------------------------------------------------
+Sub RenderStatus(irtag_id,ipv_id)
+%>
+   <table width="100%" border="0" cellspacing="10" cellpadding="0">
+   <tr>
+     <td width="50%">
+       <!-- PACKAGE PROPERTIES ----------------------------  -->
+       <%
+         If ipv_id <> "" Then
+           Call RenderPackageProperties (irtag_id)
+         End If
+       %>
+     </td>
+     <td width="12%" valign=bottom>
+       <%
+         If irtag_id<>"" Then
+           Dim objDmSts: Set objDmSts = New DaemonStatus
+       %>
+           <fieldset class="form_field">
+             <legend class=="form_field" style="color:black"><b>&nbsp;Daemon&nbsp;Status</b></legend>
+             <div style="background-color:'#f5f5f5'">
+               <%Call objDmSts.RenderDaemonStatusForRelease(irtag_id,16)%>
+             </div>
+           </fieldset>
+       <%
+           Set objDmSts = Nothing
+         End If
+       %>
+     </td>
+     <td width="38%">
+     </td>
    </tr>
+   </table>
 <%
 End Sub
 '-----------------------------------------------------------------------------------------------------------------------------
 %>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/common/_package_common.asp @ 183 – Rev 165 → 183