<% '=================================================================== ' 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 Call Destroy_All_Objects Response.Redirect("index.asp") End If '--- 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 Call Destroy_All_Objects Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id")) End If ElseIf isDefined("allowNoPackage") Then ' Get basic information - if no package is present ' Used by dependencies.asp, find.asp and sdk_add_release.asp Call Get_NoPkg_Info( Request("rtag_id") ) Else ' Don't know how we got here without a pvid - display default page Call Destroy_All_Objects 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 "" ' dlocked: Y - release, N - unlocked, P - pending, A - approved, R - rejected Dim lState If pkgInfoHash.Item ("dlocked") = "Y" Then lState = enum_imgReleasedLocked ElseIf pkgInfoHash("is_released") Then lState = enum_imgReleasedUnlocked ElseIf pkgInfoHash.Item ("dlocked") = "P" Then lState = enum_imgPending ElseIf (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") Then lState = enum_imgBuilding ElseIf (pkgInfoHash.Item ("dlocked") = "A") Then lState = "" End If If NOT isEmpty(lState) Then Response.write "" If pkgInfoHash.Item ("product_state") = 4 Then Response.write "" End If 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 If NOT isEmpty(state_icon) Then Response.write "" End If 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_SDK_IMPORT state_icon = enum_imgSdkImport Case enumPKG_SDK_DEPENDENCY state_icon = enum_imgSdkDep End Select Response.write "" End If ' Package peg status ' Not done as a part of pkg_state some states are not mutually exclusive If pkgInfoHash.Item ("is_pegged") Then Response.write "" End If 'build_type', and a value of 'M' = manual and 'A' = auto , 'U' = UnBuildable If pkgInfoHash.Item("build_type") = "M" Then Response.write "" ElseIf pkgInfoHash.Item("build_type") = "U" Then Response.write "" End If ' check if a daemon instruction exists for this package If pkgInfoHash.Item("hasRippleInstr") Then Response.write "" End If If pkgInfoHash.Item("hasTestInstr") <> "" Then Response.write "" End If If pkgInfoHash.Item("hasFutureBuild") <> "" Then Response.write "" End If If pkgInfoHash.Item("isBuilding") Then Response.write "" End If ' 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 ' Warn if the package is not in the package archive ' Use http access for package test as this does not require AD authentication If (pkgInfoHash.Item ("dlocked") = "Y") OR pkgInfoHash.Item("build_type") = "M" Then If NOT pkgInfoHash.Item ("isInArchive") Then Response.write "" End If End If ' Warn if the package has hit a ripple stop and is waiting for the user If (pkgInfoHash.Item ("ripple_stop") = "w") Then Response.write "" ElseIf (pkgInfoHash.Item ("ripple_stop") = "g") Then Response.write "" End If ' Warn if the package version is not in the release If pkgInfoHash.Exists("notInRelease") Then Response.write "" End If Response.write "" Response.write "" Response.write " " Response.write ""& pkgInfoHash.Item ("pkg_name") &" "& pkgInfoHash.Item ("pkg_version") & " " & " " & "" Response.write " " & lState & " " & enum_imgProductRejected & " " & state_icon & " " Response.write state_icon Response.write " " Response.write enum_imgGreenPin Response.write " " Response.write "" Response.write " " Response.write enum_imgUnBuildable 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 enum_imgNotInArchive Response.write " " Response.write enum_imgRippleStop Response.write " " Response.write enum_imgRippleGo Response.write " " If pkgInfoHash.Exists("pv_id_InRelease") Then Response.write "" Response.write enum_imgNotInRelease If pkgInfoHash.Exists("pv_id_InRelease") Then Response.write "" Response.write " " Response.Write enum_imgClipBoard Response.write " " End If %>

<% 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("

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

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

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