<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' REMOVE Patch ' --- PROCESS FORM --- '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "patches.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Sub RemovePatch ( NNpv_id, NNpatch_id ) OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PATCH_ID", Request("patch_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN "&_ " Remove_Patch ( :PATCH_ID, :PV_ID, :USER_ID ); "&_ " PK_WORK_IN_PROGRESS.REMOVE_PACKAGE ( :PATCH_ID, :RTAG_ID, :USER_ID ); "&_ "END; " objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "PATCH_ID" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "RTAG_ID" End Sub %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (Request("pv_id") <> "") AND (Request("patch_id") <> "") Then ' All mandatory parameters FOUND Call RemovePatch ( Request("pv_id"), Request("patch_id") ) Call Destroy_All_Objects Response.Redirect("patches.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")) Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_FullQuery End If %>