<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' MAKE UNOFFICIAL ' --- PROCESS FORM --- '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set pkgInfoHash = CreateObject("Scripting.Dictionary") '---------------------------------------------- %> <% Sub MakeUnreleased () Dim objWSH Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") ) If pkgInfoHash.Item("can_unofficial") <> "true" AND NOT canActionControlInProject("EditCriticalInfoForLockedPackage") Then Exit Sub OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN "&_ " PK_ENVIRONMENT.MAKE_UNRELEASE ( :PV_ID, :RTAG_ID, :USER_ID ); "&_ "END; " objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "USER_ID" If objEH.LastOraFailed = FALSE Then ' Does nothing. ' Once upon a time it would make the package writable in the package archive ' but this is no more. End If End Sub %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (Request("rtag_id") <> "") AND (Request("pv_id") <> "") Then 'COMPLETE THE REQUEST... Call MakeUnreleased ( ) Call Destroy_All_Objects If Request("rfile") <> "" Then Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") ) Else Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") ) End If Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_FullQuery End If %>