Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|				          Patches		             |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/common_dbedit.asp"-->
20 
<!--#include file="_tabs.asp"-->
21 
<!--#include file="_action_buttons.asp"-->
22 
<!--#include file="common/_package_common.asp"-->
23 
<%
24 
'------------ ACCESS CONTROL ------------------
25 
%>
26 
<!--#include file="_access_control_general.asp"-->
27 
<%
28 
'------------ Variable Definition -------------
29 
Dim patchRecCount
30 
Dim rsTemp
31 
Dim dOptionsFilter
32 
Dim	rsQry
33 
'------------ Constants Declaration -----------
34 
Const LIMG_FILTER_ON = "<img src='images/i_data_table.gif' border='0' align='absmiddle' hspace='0' title='Filter in use.'>"
35 
Const LIMG_FILTER_OFF = "<img src='images/i_data_table_off.gif' border='0' align='absmiddle' hspace='0' title='Filter not in use.'>"
36 
Const LIMG_DROP_DOWN_ARROW = "<img src='images/i_drop_down_arrow.gif' width='5' height='15' hspace='1' border='0' align='absmiddle'>"
37 
Const LMAX_ROWS = 50
38 
'------------ Variable Init -------------------
39 
Set dOptionsFilter = CreateObject("Scripting.Dictionary")
40 
'----------------------------------------------
41 
%>
42 
<%
43 
'------------------------------------------------------------------------------------------------------------------------------------
44 
Function PatchIcon ( cIsPatch, cIsPatchObsolete )
45 
	If IsNull(cIsPatch) Then
46 
		PatchIcon = "<img src='images/rex_images/ext_blank.gif' width='16' height='16' border='0' align='absmiddle'>"
47 
	Else
48 
		If IsNull(cIsPatchObsolete) Then
49 
			PatchIcon = "<img src='images/i_patch_small.gif' width='16' height='16' border='0' align='absmiddle' >"
50 
		Else
51 
			PatchIcon = "<img src='images/i_patch_small_obsolete.gif' width='16' height='16' border='0' align='absmiddle' title='Patch is obsolete'>"
52 
		End If
53 
	End If
54 
End Function
55 
'-----------------------------------------------------------------------------------------------------------------
56 
Sub GetOptionsFilterValues ( outOptionsFilter )
57 
	Dim Val, aValues
58 
 
59 
	If (Request("btn") <> "") Then
60 
 
61 
		If (Request("optionsfilter") <> "") Then
62 
			' Get values from query string
63 
			aValues = Split( Replace(Request("optionsfilter"), " ", ""), "," )
64 
 
65 
			For Each Val In aValues
66 
 
67 
				outOptionsFilter.Item (CStr( Val )) = Val
68 
 
69 
			Next
70 
 
71 
			' Store current setting in cookie
72 
			Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_PATCH_OPTIONS_FILTER) = Replace(Request("optionsfilter"), " ", "")
73 
		Else
74 
			' Empty cookie
75 
			Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_PATCH_OPTIONS_FILTER) = ""
76 
		End If
77 
 
78 
 
79 
	ElseIf Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_PATCH_OPTIONS_FILTER) <> "" Then
80 
 
81 
		' Get values from cookie
82 
		aValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_PATCH_OPTIONS_FILTER), " ", ""), ",")
83 
 
84 
		For Each Val In aValues
85 
 
86 
			outOptionsFilter.Item (CStr( Val )) = Val
87 
 
88 
		Next
89 
 
90 
	End If
91 
 
92 
End Sub
93 
'-----------------------------------------------------------------------------------------------------------------
94 
Function GetIsOptionsFilterInUseIcon()
95 
	GetIsOptionsFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROW
96 
 
97 
	If dOptionsFilter.Count > 0 Then
98 
		GetIsOptionsFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROW
99 
	End If
100 
 
101 
End Function
102 
'-----------------------------------------------------------------------------------------------------------------
103 
Function GetIsOptionsFilterChecked( nFilterId )
104 
 
105 
	If dOptionsFilter.Exists ( CStr(nFilterId)  ) Then
106 
		GetIsOptionsFilterChecked = "checked"
107 
	End If
108 
 
109 
End Function
110 
'------------------------------------------------------------------------------------------------------------------------------------
111 
%>
112 
<%
113 
'------------------------- MAIN LINE ---------------------------
114 
 
115 
Call GetOptionsFilterValues ( dOptionsFilter )
116 
 
117 
'---------------------------------------------------------------
118 
%>
119 
<html>
120 
<title><%=Title(Request("rtag_id"))%></title>
5357 dpurdie 121 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
119 ghuddy 122 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
123 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
124 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
125 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
126 
<script language="JavaScript" src="images/common.js"></script>
127 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
5085 dpurdie 128 
<!--#include file="_jquery_includes.asp"-->
119 ghuddy 129 
 
130 
<!-- DROPDOWN MENUS -->
131 
<!--#include file="_menu_def.asp"-->
132 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
133 
</head>
134 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
135 
<!-- MENU LAYERS -------------------------------------->
136 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
137 
  <!----------------------------------------------------->
138 
</div>
139 
<!-- HEADER -->
140 
<!--#include file="_header.asp"-->
141 
<!-- BODY ---->
142 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
143 
	<tr>
144 
		<td valign="top" width="1" background="images/bg_bage.gif">
145 
		<!-- LEFT -->
146 
		<!--#include file="_environment.asp"-->
147 
		</td>
148 
		<td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
149 
		<td valign="top" width="100%">
150 
		<!-- MIDDLE -->
151 
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
152 
		  <tr>
153 
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
185 brianf 154 
		    <td width="100%" background="images/bg_action_norm.gif"><%Call RenderActionBar(parRtag_id,parPv_id)%></td>
119 ghuddy 155 
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
156 
		  </tr>
183 brianf 157 
          <tr>
158 
            <td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td>
187 brianf 159 
            <td background="images/bg_lght_gray.gif"><%Call RenderStatus(parRtag_id,parPv_id)%></td>
183 brianf 160 
            <td background="images/bg_lght_gray.gif">&nbsp;</td>
161 
          </tr>
119 ghuddy 162 
		  <tr>
163 
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
164 
		    <td valign="bottom" background="images/bg_lght_gray.gif">
165 
		      <table width="100" border="0" cellspacing="0" cellpadding="0">
166 
		        <tr>
4687 dpurdie 167 
		          <td><IMG height="1" src="images/spacer.gif" width="0" alt="tab-left-margin" ></td>
119 ghuddy 168 
		          <td>
169 
				  <!-- TABS ------------------------------------->
170 
				  <%Call Generate_Tab_Menu ( TABarray1, "Patches", "orange" )%>
171 
				  </td>
172 
		        </tr>
173 
		      </table>
174 
		    </td>
175 
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
176 
		  </tr>
177 
		  <tr>
178 
		    <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
179 
		    <td background="images/lbox_bg_orange.gif">
180 
			<!-- TAB ACTION BUTTONS ------------------------------------->
181 
			<%Call Action_Buttons ( "Patches" )%>
182 
			</td>
183 
		    <td background="images/lbox_bg_orange.gif">&nbsp;</td>
184 
		  </tr>
185 
		  <tr>
186 
		    <td></td>
187 
		    <td valign="top">
188 
			<!-- DETAILS ------------------------------------------------->
189 
 
190 
 
191 
			<br>
192 
			<%If CStr(pkgInfoHash.Item("pkg_state")) = CStr( enumPKG_STATE_NEW_PATCH ) Then%>
193 
			<%Call DisplayInfo ( "NEW_PATCH_AVAILABLE", "100%" )%>
194 
			<%End If%>
195 
			<%
196 
			OraDatabase.Parameters.Add "PV_ID", 	parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
197 
 
198 
			If (GetIsOptionsFilterChecked(enumPATCH_HIDE_OBSOLETE) <> "") Then
199 
				OraDatabase.Parameters.Add "HIDE_OBSOLETE", 	"Y", ORAPARM_INPUT, ORATYPE_CHAR
200 
			Else
201 
				OraDatabase.Parameters.Add "HIDE_OBSOLETE", 	"N", ORAPARM_INPUT, ORATYPE_CHAR
202 
			End If
203 
 
204 
			Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("Patches.sql"), cint(0))
205 
 
206 
			OraDatabase.Parameters.Remove "PV_ID"
207 
			OraDatabase.Parameters.Remove "HIDE_OBSOLETE"
208 
 
209 
			patchRecCount = rsTemp.RecordCount
210 
			%>
211 
			<!-- OPTIONS FILTER +++++++++++++++++++++++++++++++++++++++++++ -->
212 
			<table width="100%"  border="0" cellspacing="0" cellpadding="0">
213 
			<form name="FornName" method="get" action="<%=ScriptName%>">
214 
			<input type="hidden" name="pv_id" value="<%=parPv_Id%>">
215 
			<input type="hidden" name="rtag_id" value="<%=parRtag_Id%>">
216 
	            <tr>
217 
				<td width="100%"></td>
218 
				<td width="1" align="right">
219 
				<fieldset>
220 
				<legend><a href="javascript:;" class="body_scol" onClick="ToggleDisplay('divOptionsFilter');" ><%=GetIsOptionsFilterInUseIcon() %>&nbsp;Options...</a></legend>
221 
				    <div name="divOptionsFilter" id="divOptionsFilter" class="body_txt" style="display:none;">
222 
					<br>
223 
					      <table width="100%"  border="0" cellspacing="1" cellpadding="3">
224 
	                        <tr>
225 
	                          <td width="1" background="images/bg_action_norm.gif"><input name="optionsfilter" type="checkbox" value="<%=enumPATCH_SHOW_ALL%>" <%=GetIsOptionsFilterChecked(enumPATCH_SHOW_ALL)%>></td>
226 
	                          <td width="100%" nowrap background="images/bg_action_norm.gif" class="form_field">Show All</td>
227 
	                        </tr>
228 
	                        <tr>
229 
	                          <td background="images/bg_action_norm.gif"><input type="checkbox" name="optionsfilter" value="<%=enumPATCH_HIDE_OBSOLETE%>" <%=GetIsOptionsFilterChecked(enumPATCH_HIDE_OBSOLETE)%>></td>
230 
	                          <td nowrap background="images/bg_action_norm.gif" class="form_field">Hide Obsolete</td>
231 
	                        </tr>
232 
							<tr>
233 
	                          <td background="images/bg_action_norm.gif">&nbsp;</td>
234 
	                          <td background="images/bg_action_norm.gif"><input name="btn" type="submit" class="form_btn" id="btn" value="Apply"></td>
235 
	                        </tr>
236 
	                      </table>
237 
 
238 
				        </div>
239 
				</fieldset>
240 
				</td></tr>
241 
			</form>
242 
            </table>
243 
			<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
244 
			<%
245 
			' Shift Cursor Position
246 
			If (GetIsOptionsFilterChecked(enumPATCH_SHOW_ALL) = "") AND (patchRecCount > 0) Then
247 
				If patchRecCount > LMAX_ROWS Then
248 
					rsTemp.MoveTo ( patchRecCount - LMAX_ROWS )
249 
				End If
250 
 
251 
			End If
252 
			%>
253 
			<span class="body_colb">Patches</span><br>
254 
 
255 
                        <table width="100%" border="0" cellspacing="1" cellpadding="3">
256 
                          <tr>
257 
						    <td align="center" background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Installation<br>Order</td>
258 
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td>
259 
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Patch Version&nbsp;</td>
260 
                			<td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Reason for this version</td>
261 
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Release Date</td>
262 
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td>
263 
                          </tr>
264 
 
265 
                          <%If patchRecCount < 1 Then%>
266 
                          <tr>
267 
						  	<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
268 
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
269 
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
270 
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
271 
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
272 
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
273 
                          </tr>
274 
                          <%End If%>
275 
                          <%
276 
						  While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
277 
						  %>
278 
 
279 
						  <%
280 
						  ' ---------- PATCH ----------
281 
						  If Cstr(rsTemp("patch_id")) = "0" Then
282 
						  %>
283 
                          <tr>
284 
						    <td align="center" nowrap background="images/bg_form_lightgray.gif" valign="top"><a href='javascript:;' onClick="MM_openBrWindow('_wform_patch_install_order.asp?patch_id=<%=rsTemp("ppatch_id")%>&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")%></a></td>
285 
							<td align="center" nowrap background="images/bg_form_lightgray.gif" valign="top"><%If rsTemp("dlocked") = "Y" Then%><%=imgLocked%><%End If%></td>
286 
                            <td background="images/bg_form_lightgray.gif" nowrap valign="top"><a href="fixed_issues.asp?pv_id=<%=rsTemp("ppatch_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=PatchIcon ( rsTemp("is_patch"), rsTemp("is_obsolete") )%><%=rsTemp("pkg_version")%></a></td>
287 
                            <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML ( rsTemp("comments") ) )%><br><%=NewLine_To_BR( To_HTML ( rsTemp("obsolete_comments") ) )%></td>
288 
                            <td background="images/bg_form_lightgray.gif" class="form_item" nowrap valign="top"><%=EuroDateTime(rsTemp("release_stamp"))%><%If NOT IsNull(rsTemp("release_stamp"))Then%> by <a href="mailto:<%=rsTemp("user_email")%>" class="txt_linked"><%=rsTemp("full_name")%></a><%End If%></td>
289 
							<%If rsTemp("dlocked") = "N" Then%>
5190 dpurdie 290 
                            	<td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="_remove_patch.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&patch_id=<%=rsTemp("ppatch_id")%>" onClick="return vixConfirmDelete('this patch');"><img src="images/i_delete.gif" alt="Remove from list." width="13" height="12" hspace="3" border="0"></a></td>
119 ghuddy 291 
							<%Else%>
292 
								<td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><img src="images/i_delete_disable.gif" alt="Remove disabled." width="13" height="12" hspace="3" border="0"></td>
293 
							<%End If%>
294 
                          </tr>
295 
 
296 
						  <%
297 
						  Else
298 
						  ' ---------  DEPENDENCY ---------
299 
						  %>
300 
						  <tr>
301 
						    <td align="center" nowrap background="images/bg_form_lightgray.gif"></td>
302 
							<td align="center" nowrap background="images/bg_form_lightgray.gif"><%If rsTemp("dlocked") = "Y" Then%><%=imgLocked%><%End If%></td>
303 
                            <td background="images/bg_form_lightgray.gif" nowrap valign="top"><IMG src="images/spacer.gif" width="20" align="absmiddle"><a href="fixed_issues.asp?pv_id=<%=rsTemp("patch_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=PatchIcon ( rsTemp("is_patch"), rsTemp("is_obsolete") )%><%=rsTemp("pkg_name") &" "& rsTemp("pkg_version")%></a></td>
304 
                            <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML ( rsTemp("comments") ) )%><br><%=NewLine_To_BR( To_HTML ( rsTemp("obsolete_comments") ) )%></td>
305 
                            <td background="images/bg_form_lightgray.gif" class="form_item" nowrap valign="top"><%=EuroDateTime(rsTemp("release_stamp"))%><%If NOT IsNull(rsTemp("release_stamp"))Then%> by <a href="mailto:<%=rsTemp("user_email")%>" class="txt_linked"><%=rsTemp("full_name")%></a><%End If%></td>
306 
                            <td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"></td>
307 
                          </tr>
308 
 
309 
						  <%End If%>
310 
 
311 
 
312 
                          <%rsTemp.MoveNext
313 
						  WEnd
314 
						  rsTemp.Close
315 
						  Set rsTemp = nothing
316 
 
317 
						  %>
318 
                        </table>
319 
                        <!------------------------------------------------------------>
320 
           <br><br>
321 
			<!-- END DETAILS ------------------------------------------------->
322 
			</td>
323 
		    <td>&nbsp;</td>
324 
		  </tr>
325 
		</table>
326 
		<!-- END MIDDLE -------->
327 
		</td>
328 
	</tr>
329 
</table>
330 
<!-- FOOTER -->
331 
<!--#include file="_footer.asp"-->
332 
</body>
333 
</html>
334 
<%
335 
Call Destroy_All_Objects
336 
%>