<% '=================================================================== ' Package Common '=================================================================== %> <% '------------ VARIABLE DEFINITION ------------- Dim parPv_id Dim nEnvTab ' remember environment tab Dim objBtnControl Dim aTabBtnsDef '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parPv_id = Request("pv_id") Set objBtnControl = New ActionButtonControl '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '--- Make sure rtag_id is always present If (Request("rtag_id") = "") AND (Request("pv_id") = "") Then Response.Redirect("index.asp") '--- Rebuild Environment If (Request("rtag_id") <> "") Then Call Rebuild_Environment ( parRtag_id ) End If '--- Persist following parameters between postbacks objPMod.PersistInQryString ( aPersistList(enumPAR_RTAG_ID) ) objPMod.PersistInQryString ( aPersistList(enumPAR_PV_ID) ) '--- Get Environment (lefthand side menu) tab nEnvTab = GetEnvTab ( Request("envtab") ) '--- Get Package General Information Set pkgInfoHash = CreateObject("Scripting.Dictionary") If Request("pv_id") <> "" Then Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") ) ' Make sure pv_id exists as it may be removed If pkgInfoHash.Item("pv_id") = "" Then Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id")) Else If (ScriptName <> "dependencies.asp") AND (ScriptName <> "find.asp")Then Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id")) End If '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- Sub RenderPackageProperties (irtag_id) %>

<% If pkgInfoHash.Item ("is_patch") = "Y" Then '--- PATCH --- Response.write " Back To "& pkgInfoHash.Item ("pkg_name") &" " If pkgInfoHash.Item ("is_obsolete") = "Y" Then Dim rsTemp Set rsTemp = OraDatabase.DbCreateDynaset( "select patch_obsoleted_by from package_patches where patch_id ="&pkgInfoHash.Item ("pv_id"), cint(0)) If rsTemp("patch_obsoleted_by") <> "" Then Set rsTemp = OraDatabase.DbCreateDynaset( "select pkg_version from package_versions where pv_id ="&rsTemp("patch_obsoleted_by"), cint(0)) Call Messenger ( "Patch Is Obsolete! "& NewLine_To_BR( "Obsoleted by patch "& rsTemp("pkg_version") & ". " ) & NewLine_To_BR( pkgInfoHash.Item ("obsolete_comments") ), 3, "100%" ) rsTemp.Close() Set rsTemp = nothing Else Call Messenger ( "Patch Is Obsolete! "& NewLine_To_BR( pkgInfoHash.Item ("obsolete_comments") ), 3, "100%" ) End If Response.write enum_imgPatchObsolete Else Response.write enum_imgPatch End If If pkgInfoHash.Item ("dlocked") = "Y" Then Response.write ""& pkgInfoHash.Item ("pkg_version") &"" Else Response.write ""& pkgInfoHash.Item ("pkg_version") &"" End If Else '--- PACKAGE --- Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write " " Response.write ""& pkgInfoHash.Item ("pkg_name") &" "& pkgInfoHash.Item ("pkg_version") & " " & " " & "" Response.write " " ' dlocked: Y - release, N - unlocked, P - pending, A - approved, R - rejected If pkgInfoHash.Item ("dlocked") = "Y" Then Response.write "" ElseIf pkgInfoHash("is_released") Then Response.write "" 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 " " If pkgInfoHash.Item ("product_state") = 4 Then Response.write enum_imgProductRejected End If Response.write " " 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 state_icon = enum_imgDeprecatedDependent End Select Response.write state_icon End If Response.write " " 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 Response.write " " 'build_type', and a value of 'M' = manual and 'A' = auto If pkgInfoHash.Item("build_type") = "M" Then Response.write "" End If Response.write " " ' 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 "" End If Response.write " " ' check if this package has a build failure file If pkgInfoHash("has_build_failure") Then Response.write "" ElseIf pkgInfoHash("is_excluded") Then ' check if this package has been excluded from the build Response.write "" End If Response.write " " Response.write " " End If %>

<%'=GetOpCodeListForRtagIdAndPvId( "NOTE: '", Request("rtag_id"), pkgInfoHash.Item("pv_id"), "' has been requested" )%>

<% End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub RenderStatus(irtag_id,ipv_id) %>

<% If ipv_id <> "" Then Call RenderPackageProperties (irtag_id) End If %>

<% End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub RenderDaemonBar(irtag_id,ipv_id) %>

<% If irtag_id<>"" Then Dim objDmSts: Set objDmSts = New DaemonStatus %> <%Call objDmSts.RenderDaemonStatusForRelease(irtag_id,16)%> <% Set objDmSts = Nothing End If %>

<% End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub RenderActionBar(irtag_id,ipv_id) Response.write("") Response.write(" ") Response.write(" ") Response.write(" ") Response.write(" ") Response.write(" ") Response.write("

") If Not ((ipv_id = "") or (IsNull(ipv_id))) Then Call RenderActionButtons End If Response.write("

") Response.write("

") Call RenderDaemonBar(irtag_id,ipv_id) Response.write("

") End Sub '----------------------------------------------------------------------------------------------------------------------------- %>