<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
' Destroy Package
' --- PROCESS FORM ---
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim ProblemsString
Dim OverideWarnings
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
ProblemsString = NULL
OverideWarnings = "N"
If InStr( 1, Request("btn"), "YES", 1 ) > 0 Then OverideWarnings = "Y"
'----------------------------------------------
%>
<%
Sub DestroyPackage ( nPvId, cOverrideWarnings, outProblemsString )
OraDatabase.Parameters.Add "PV_ID", nPvId, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "OVERRIDE_WARNINGS", cOverrideWarnings, ORAPARM_INPUT, ORATYPE_CHAR
OraDatabase.Parameters.Add "PROBLEM_STRING", NULL, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
'Response.write nPvId &"-"& cOverrideWarnings &"-"& Request("btn")
objEH.TryORA ( OraSession )
On Error Resume Next
OraDatabase.ExecuteSQL _
"BEGIN "&_
" PK_PACKAGE.DESTROY_PACKAGE ( :PV_ID, :OVERRIDE_WARNINGS, :PROBLEM_STRING ); "&_
"END; "
objEH.CatchORA ( OraSession )
outProblemsString = OraDatabase.Parameters("PROBLEM_STRING").Value
OraDatabase.Parameters.Remove "PV_ID"
OraDatabase.Parameters.Remove "OVERRIDE_WARNINGS"
OraDatabase.Parameters.Remove "PROBLEM_STRING"
End Sub
%>
<%
'----------------------- MAIN LINE ---------------------------
' Setup persistance object
Call objPMod.StoreParameter ( "bfile", Request("bfile") )
Call objPMod.StoreParameter ( "rfile", Request("rfile") )
Call objPMod.StoreParameter ( "rtag_id", Request("rtag_id") )
Call objPMod.StoreParameter ( "pv_id", Request("pv_id") )
Call objPMod.StoreParameter ( "pkg_id", Request("pkg_id") )
Call objPMod.StoreParameter ( "OLDpv_id", Request("OLDpv_id") )
Call objPMod.StoreParameter ( "FLuser_name", Request("FLuser_name") )
Call objPMod.StoreParameter ( "FLpkg_version", Request("FLpkg_version") )
Call objPMod.StoreParameter ( "FLpkg_version", Request("FLpkg_version") )
Call objPMod.StoreParameter ( "listby", Request("listby") )
If objPMod.GetParamValue("pv_id") Then
If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present.
"&_
"Please delete them or allow them to be consumed before attempting to delete the package version.")
Else
'--- Process submition ---
Call DestroyPackage ( objPMod.GetParamValue("pv_id"), OverideWarnings, ProblemsString )
If IsNull( ProblemsString ) Then
Response.Redirect( objPMod.GetParamValue("bfile") &"?DESTROYED=OK"& objPMod.ComposeURLWithout("bfile,pv_id") )
End If
End If
Else
Err.Raise 8, "This page requires more paramaters to run. "& objPMod.ComposeURL()
End If
'----------------------------------------------------------------
%>
Release Manager
