<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Change Previous Version '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parRfile '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set pkgInfoHash = CreateObject("Scripting.Dictionary") parPv_id = QStrPar("pv_id") parRfile = QStrPar("rfile") '---------------------------------------------- %> <% Sub Short_Pkg_Info ( NNpv_id ) Dim rsTemp, Query_String Query_String = _ " SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_id, pv.last_pv_id"&_ " FROM packages pkg, package_versions pv"&_ " WHERE pkg.pkg_id = pv.pkg_id"&_ " AND pv.pv_id = "& NNpv_id Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name")) pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id")) pkgInfoHash.Add "last_pv_id", (rsTemp.Fields("last_pv_id")) End If rsTemp.Close Set rsTemp = nothing End Sub Sub Deprecate_Package ( NNpv_id) Dim rsTemp, Query_String 'If nLast_pv_id = "" Then nLast_pv_id = NULL Set rsTemp = OraDatabase.DbCreateDynaset("SELECT PKG.PKG_ID, PKG.pkg_name FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PKG.PKG_ID = PV.PKG_ID AND PV.PV_ID = "&NNpv_id, cint(0)) OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", rsTemp("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMMENTS", Request("pv_overview"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER On Error Resume Next objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN Deprecate_Package ( :PV_ID, :RTAG_ID, :PKG_ID, :COMMENTS, :USER_ID ); END;" If Err.Number = 0 Then OraDatabase.ExecuteSQL _ "BEGIN Log_Action ( :PV_ID, 'deprecate_package', :USER_ID ); END;" End If objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "COMMENTS" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "PV_ID" rsTemp.Close Set rsTemp = nothing End Sub %> <% 'Process submition If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn AND Request("pv_overview") <> "" Then Call Deprecate_Package ( parPv_id) Call OpenInParentWindow ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) Call CloseWindow End If %> <% Call Short_Pkg_Info ( parPv_id ) %> Release Manager
 How to migrate from a Deprecated Package
  <%If NOT IsNull(rsTemp("comments")) Then%> <%Else%> <%End If%> <% rsTemp.Close() Set rsTemp = nothing %>
 
  Package <%=pkgInfoHash.Item ("pkg_name")%>
  Migration Instructions <% Dim rsTemp Set rsTemp = OraDatabase.DbCreateDynaset("SELECT COMMENTS FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& Request("rtag_id") &" AND V_EXT ='"& pkgInfoHash.Item ("v_ext") &"' AND PKG_ID ="& pkgInfoHash.Item ("pkg_id") &"", cint(0)) %> Required!