<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Reproducible Package '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim pending_unlock '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") parRtag_id = QStrPar("rtag_id") '---------------------------------------------- %> <% Sub SwitchReproducible () OraDatabase.Parameters.Add "PV_ID", Request("pv_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 Switch_Reproducible_Package( :PV_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub %> <% 'Process submition '--------------------------------------- ' THIS IS FOR SYSTEM ADMIN ONLY '--------------------------------------- 'If canActionControlInProject("UnRipplePackage") Then Call SwitchReproducible () Call Destroy_All_Objects Response.Redirect ("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id) 'End If %>