Release Manager

<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Obsolete Patch '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim patchRecCount Dim rsTemp '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") '---------------------------------------------- %> <% 'Function Get_Comments( NNPv_id ) ' Dim rsTemp, Query_String ' Query_String = _ ' " SELECT obsolete_comments"&_ ' " FROM package_versions"&_ ' " WHERE pv_id = "& NNPv_id ' Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) ' If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then ' Get_Comments = rsTemp.Fields("obsolete_comments") ' End If ' rsTemp.Close ' Set rsTemp = nothing 'End Function Sub SubmitObsoleteComments ( NNPatch_id_list ) Dim isPatchObsolete isPatchObsolete = "Y" If Request("unobsolete") <> "" Then isPatchObsolete = NULL End If OraDatabase.Parameters.Add "PATCH_ID_LIST", NNPatch_id_list, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "IS_OBSOLETE", isPatchObsolete, ORAPARM_INPUT, ORATYPE_CHAR OraDatabase.Parameters.Add "OBSOLETE_COMMENTS", Request("obsolete_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER On Error Resume Next objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ " BEGIN PK_PACKAGE.OBSOLETE_PATCHES ( :PATCH_ID_LIST, :IS_OBSOLETE, :OBSOLETE_COMMENTS, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PATCH_ID_LIST" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "IS_OBSOLETE" OraDatabase.Parameters.Remove "OBSOLETE_COMMENTS" End Sub %> <% 'Process submission '------------ Action Requirements ------------------- If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then Call SubmitObsoleteComments ( Request("patch_id_list") ) If objEH.Finally Then Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& Request("rtag_id") ) Call Destroy_All_Objects Response.End End If End If %> Release Manager <% '-- FROM START --------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormSearch" objFormComponent.FormClass = "form_tight" objFormComponent.Action = scriptName Call objFormComponent.FormStart() %>

<% OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "HIDE_OBSOLETE", "Y", ORAPARM_INPUT, ORATYPE_CHAR Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("Patches.sql"), cint(0)) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "HIDE_OBSOLETE" patchRecCount = rsTemp.RecordCount %>

Available Patches For Obsolete

<%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <%If (rsTemp("patch_id")) <> "0" Then %> <%Else%> <%End If%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing %>

	Package	Patch Version
">	">	<%=rsTemp("pkg_name")%>	<%=rsTemp("pkg_version")%>

<% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>