Subversion Repositories DevTools

Rev

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