Subversion Repositories DevTools

<%

'===================================================================

'                     Package Common

'===================================================================

%>

<!--#include file="../class/classTemplateManager.asp"-->

<!--#include file="../class/classTabControl.asp"-->

<!--#include file="../class/classActionButtonControl.asp"-->

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

<%

'------------ 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 ()

%>

   <tr>

      <td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></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>"

            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 ( "<SPAN class='err_alert'><b>Patch Is Obsolete!</b></SPAN><br>"& NewLine_To_BR( "<b>Obsoleted by patch "& rsTemp("pkg_version") & ". </b> " ) & NewLine_To_BR( pkgInfoHash.Item ("obsolete_comments") ), 3, "100%" )

                  rsTemp.Close()

                  Set rsTemp = nothing

               Else

                  Call Messenger ( "<SPAN class='err_alert'><b>Patch Is Obsolete!</b></SPAN><br>"& 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 "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'></SPAN>"

            Else

               Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_version") &"</SPAN>"

            End If

         Else

            '--- PACKAGE ---

            If pkgInfoHash.Item ("dlocked") = "Y" Then

               If pkgInfoHash.Item ("deprecated_state") = 6 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>"

               ElseIf pkgInfoHash.Item ("product_state") = 4 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_imgProductRejected&"</SPAN>"

               Else

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

               End If

            Else

               Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"</SPAN>"

            End If

         End If

         %>

         <br><br>

      </td>

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

   </tr>

   <tr>

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

      <td background="images/bg_lght_gray.gif" style=color:Red>

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

      <td>

   </tr>

<%

End Sub

'-----------------------------------------------------------------------------------------------------------------------------

%>