<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' System Unlock Package '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parRfile '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") parRtag_id = QStrPar("rtag_id") parRfile = QStrPar("rfile") '---------------------------------------------- %> <% Sub UnDeprecatePackage () Dim rsTemp, Query_String 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 = "&parPv_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 "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 Undeprecate_Package ( :PV_ID, :RTAG_ID, :PKG_ID, :USER_ID ); END;" If Err.Number = 0 Then OraDatabase.ExecuteSQL _ "BEGIN Log_Action ( :PV_ID, 'undeprecate_package', :USER_ID ); END;" End If objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "PV_ID" rsTemp.Close Set rsTemp = nothing End Sub %> <% 'Process submission '--------------------------------------- ' THIS IS FOR SYSTEM ADMIN ONLY '--------------------------------------- 'If canActionControlInProject("UnlockPackage") Then Call UnDeprecatePackage () Call Destroy_All_Objects Response.Redirect(parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id) 'Call CloseWindow 'End If %>