<%=Title(Request("rtag

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Patches | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim patchRecCount Dim rsTemp Dim dOptionsFilter Dim rsQry '------------ Constants Declaration ----------- Const LIMG_FILTER_ON = " Filter in use.

" Const LIMG_FILTER_OFF = " Filter not in use.

" Const LIMG_DROP_DOWN_ARROW = "

" Const LMAX_ROWS = 50 '------------ Variable Init ------------------- Set dOptionsFilter = CreateObject("Scripting.Dictionary") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------------------ Function PatchIcon ( cIsPatch, cIsPatchObsolete ) If IsNull(cIsPatch) Then PatchIcon = "

" Else If IsNull(cIsPatchObsolete) Then PatchIcon = "

" Else PatchIcon = "

" End If End If End Function '----------------------------------------------------------------------------------------------------------------- Sub GetOptionsFilterValues ( outOptionsFilter ) Dim Val, aValues If (Request("btn") <> "") Then If (Request("optionsfilter") <> "") Then ' Get values from query string aValues = Split( Replace(Request("optionsfilter"), " ", ""), "," ) For Each Val In aValues outOptionsFilter.Item (CStr( Val )) = Val Next ' Store current setting in cookie Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_PATCH_OPTIONS_FILTER) = Replace(Request("optionsfilter"), " ", "") Else ' Empty cookie Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_PATCH_OPTIONS_FILTER) = "" End If ElseIf Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_PATCH_OPTIONS_FILTER) <> "" Then ' Get values from cookie aValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_PATCH_OPTIONS_FILTER), " ", ""), ",") For Each Val In aValues outOptionsFilter.Item (CStr( Val )) = Val Next End If End Sub '----------------------------------------------------------------------------------------------------------------- Function GetIsOptionsFilterInUseIcon() GetIsOptionsFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROW If dOptionsFilter.Count > 0 Then GetIsOptionsFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROW End If End Function '----------------------------------------------------------------------------------------------------------------- Function GetIsOptionsFilterChecked( nFilterId ) If dOptionsFilter.Exists ( CStr(nFilterId) ) Then GetIsOptionsFilterChecked = "checked" End If End Function '------------------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------- MAIN LINE --------------------------- Call GetOptionsFilterValues ( dOptionsFilter ) '--------------------------------------------------------------- %> <%=Title(Request("rtag_id"))%>

<%Call RenderPackageProperties ()%>

<%Call Generate_Tab_Menu ( TABarray1, "Patches", "orange" )%>

<%Call Action_Buttons ( "Patches" )%>

<%If CStr(pkgInfoHash.Item("pkg_state")) = CStr( enumPKG_STATE_NEW_PATCH ) Then%> <%Call DisplayInfo ( "NEW_PATCH_AVAILABLE", "100%" )%> <%End If%> <% OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER If (GetIsOptionsFilterChecked(enumPATCH_HIDE_OBSOLETE) <> "") Then OraDatabase.Parameters.Add "HIDE_OBSOLETE", "Y", ORAPARM_INPUT, ORATYPE_CHAR Else OraDatabase.Parameters.Add "HIDE_OBSOLETE", "N", ORAPARM_INPUT, ORATYPE_CHAR End If Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("Patches.sql"), cint(0)) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "HIDE_OBSOLETE" patchRecCount = rsTemp.RecordCount %>

<%=GetIsOptionsFilterInUseIcon() %> Options...

<% ' Shift Cursor Position If (GetIsOptionsFilterChecked(enumPATCH_SHOW_ALL) = "") AND (patchRecCount > 0) Then If patchRecCount > LMAX_ROWS Then rsTemp.MoveTo ( patchRecCount - LMAX_ROWS ) End If End If %> Patches
<%If patchRecCount < 1 Then%> <%End If%> <% While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) %> <% ' ---------- PATCH ---------- If Cstr(rsTemp("patch_id")) = "0" Then %> <%If rsTemp("dlocked") = "N" Then%> <%Else%> <%End If%> <% Else ' --------- DEPENDENCY --------- %> <%End If%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing %>

Installation Order		Patch Version	Reason for this version	Release Date

&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','InstallOrder','resizable=yes,width=400,height=250')" class="txt_linked" title="Change Install Order"><%=rsTemp("install_order")%>	<%If rsTemp("dlocked") = "Y" Then%><%=imgLocked%><%End If%>	&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=PatchIcon ( rsTemp("is_patch"), rsTemp("is_obsolete") )%><%=rsTemp("pkg_version")%>	<%=NewLine_To_BR( To_HTML ( rsTemp("comments") ) )%> <%=NewLine_To_BR( To_HTML ( rsTemp("obsolete_comments") ) )%>	<%=EuroDateTime(rsTemp("release_stamp"))%><%If NOT IsNull(rsTemp("release_stamp"))Then%> by " class="txt_linked"><%=rsTemp("full_name")%><%End If%>	" onClick="return confirmDelete('this patch');">
	<%If rsTemp("dlocked") = "Y" Then%><%=imgLocked%><%End If%>	&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=PatchIcon ( rsTemp("is_patch"), rsTemp("is_obsolete") )%><%=rsTemp("pkg_name") &" "& rsTemp("pkg_version")%>	<%=NewLine_To_BR( To_HTML ( rsTemp("comments") ) )%> <%=NewLine_To_BR( To_HTML ( rsTemp("obsolete_comments") ) )%>	<%=EuroDateTime(rsTemp("release_stamp"))%><%If NOT IsNull(rsTemp("release_stamp"))Then%> by " class="txt_linked"><%=rsTemp("full_name")%><%End If%>

<% Call Destroy_All_Objects %>