Subversion Repositories DevTools

Rev

Rev 5506 | Rev 6427 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
3 
'					Dependency Changes
4 
'=====================================================
5 
%>
6 
<%
7 
'------------ Variable Definition -------------
8 
Dim parFileDiff
9 
Dim parComparePvId
10 
Dim parFileFilter
11 
Dim dFileFilter
12 
Dim parDepFilter
13 
Dim dDepFilter
14 
'------------ Constants Declaration -----------
15 
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Updated'>"
16 
Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Added'>"
17 
Const LIMG_REMOVED = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Removed'>"
18 
Const LIMG_FILTER_ON = "<img src='images/i_data_table.gif' border='0' align='absmiddle' hspace='0' title='Filter in use.'>"
19 
Const LIMG_FILTER_OFF = "<img src='images/i_data_table_off.gif' border='0' align='absmiddle' hspace='0' title='Filter not in use.'>"
20 
Const LIMG_NEW_WINDOW = "<img src='images/i_new_window.gif' width='16' height='16' hspace='3' border='0' align='absmiddle' >"
21 
Const LIMG_DROP_DOWN_ARROW = "<img src='images/i_drop_down_arrow.gif' width='5' height='15' hspace='1' border='0' align='absmiddle'>"
22 
'------------ Variable Init -------------------
23 
parFileDiff = Request("filediff")
24 
parComparePvId = Request("compare_pv_id")
25 
parFileFilter = Request("filefilter")
26 
parDepFilter = Request("depfilter")
27 
'----------------------------------------------
28 
Set dDepFilter = CreateObject("Scripting.Dictionary")
29 
Set dFileFilter = CreateObject("Scripting.Dictionary")
30 
 
31 
If InStr( Request("btn"), "Expand" ) > 0 Then
32 
	parFileDiff = "true"
33 
ElseIf InStr( Request("btn"), "Collapse" ) > 0 Then
34 
	parFileDiff = ""
35 
End If
36 
 
37 
' Define version to compare
38 
If parComparePvId = "" Then
39 
	If NOT IsNull( pkgInfoHash.Item("last_pv_id") )  OR  pkgInfoHash.Item("last_pv_id") <> "" Then
40 
		parComparePvId = pkgInfoHash.Item("last_pv_id")
41 
	Else
42 
		parComparePvId = 0
43 
	End If
44 
 
45 
End If
46 
'----------------------------------------------
47 
%>
48 
<%
49 
'-----------------------------------------------------------------------------------------------------------------
50 
Sub GetFileFilterValues ( outFileFilter )
51 
	Dim FilterVal, aFilterValues
52 
 
53 
	If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_FILES_FILTER) <> "" Then
54 
 
55 
		aFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_FILES_FILTER), " ", ""), ",")
56 
 
57 
		For Each FilterVal In aFilterValues
58 
 
59 
			outFileFilter.Item (CStr( FilterVal )) = ""
60 
 
61 
		Next
62 
 
63 
	End If
64 
 
65 
End Sub
66 
'-----------------------------------------------------------------------------------------------------------------
67 
Sub GetDepFilterValues ( outDepFilter )
68 
	Dim FilterVal, aFilterValues
69 
 
70 
	If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DEPS_FILTER) <> "" Then
71 
 
72 
		aFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DEPS_FILTER), " ", ""), ",")
73 
 
74 
		For Each FilterVal In aFilterValues
75 
 
76 
			outDepFilter.Item (CStr( FilterVal )) = ""
77 
 
78 
		Next
79 
 
80 
	End If
81 
 
82 
End Sub
83 
'-----------------------------------------------------------------------------------------------------------------
84 
Function GetIsDepFilterInUseIcon()
85 
	GetIsDepFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROW
86 
 
87 
	If dDepFilter.Count > 0 Then
88 
		GetIsDepFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROW
89 
	End If
90 
 
91 
End Function
92 
'-----------------------------------------------------------------------------------------------------------------
93 
Function GetIsFileFilterInUseIcon()
94 
	GetIsFileFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROW
95 
 
96 
	If dFileFilter.Count > 0 Then
97 
		GetIsFileFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROW
98 
	End If
99 
 
100 
End Function
101 
'-----------------------------------------------------------------------------------------------------------------
102 
Function GetIsFileFilterChecked( nFilterId )
103 
 
104 
	If dFileFilter.Exists ( CStr(nFilterId)  ) Then
105 
		GetIsFileFilterChecked = "checked"
106 
	End If
107 
 
108 
End Function
109 
'-----------------------------------------------------------------------------------------------------------------
110 
Function GetIsDepFilterChecked( nFilterId )
111 
 
112 
	If dDepFilter.Exists ( CStr(nFilterId)  ) Then
113 
		GetIsDepFilterChecked = "checked"
114 
	End If
115 
 
116 
End Function
117 
'-----------------------------------------------------------------------------------------------------------------
118 
Sub RowStyle ( sStatus, ByRef outIcon, ByRef outStyle )
119 
 
120 
	Select Case CInt(sStatus)
121 
		Case enumDB_NUM_DIFF_NO_CHANGE
122 
			outStyle = "body_rowg"
123 
			outIcon = NULL
124 
 
125 
		Case enumDB_NUM_DIFF_UPDATED
126 
			outStyle = "body_rowbold"
127 
			outIcon = LIMG_UPDATED
128 
 
129 
		Case enumDB_NUM_DIFF_NEW
130 
			outStyle = "body_rowbold"
131 
			outIcon = LIMG_ADDED
132 
 
133 
		Case enumDB_NUM_DIFF_REMOVED
134 
			outStyle = "body_rowthru"
135 
			outIcon = LIMG_REMOVED
136 
 
137 
	End Select
138 
 
139 
End Sub
140 
'-----------------------------------------------------------------------------------------------------------------
141 
Sub DisplayComparePvIdCombo()
142 
	Dim rsQry, isOfficial
143 
 
144 
 
145 
	OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId,	ORAPARM_INPUT, ORATYPE_NUMBER
146 
	OraDatabase.Parameters.Add "PKG_ID", 		pkgInfoHash.Item("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
5952 dpurdie 147 
	OraDatabase.Parameters.Add "V_EXT", 		EmptyToNull(pkgInfoHash.Item("v_ext")),	ORAPARM_INPUT, ORATYPE_VARCHAR2
119 ghuddy 148 
 
149 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0))
150 
 
151 
	Response.write "<option value=''></option>"
152 
 
153 
    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
154 
 
155 
		If rsQry("dlocked") = "Y" Then
156 
			isOfficial = "R&nbsp;"
157 
		Else
158 
			isOfficial = "&nbsp;&nbsp;&nbsp;&nbsp;"
159 
		End If
160 
 
161 
		Response.write "<option value='"& rsQry("pv_id") &"' "& rsQry("selected") &" >"& isOfficial & rsQry("pkg_version") &"</option>"& VBNewLine
162 
 
163 
		rsQry.MoveNext
164 
    WEnd
165 
 
166 
	' Clean up
167 
	rsQry.Close()
168 
	Set rsQry = nothing
169 
 
170 
	OraDatabase.Parameters.Remove "COMPARE_PV_ID"
171 
	OraDatabase.Parameters.Remove "PKG_ID"
172 
	OraDatabase.Parameters.Remove "V_EXT"
173 
 
174 
End Sub
175 
'-----------------------------------------------------------------------------------------------------------------
176 
Sub DisplayDiffSummary( orsQry )
177 
	Dim dDiffSummary
178 
	Set dDiffSummary = CreateObject("Scripting.Dictionary")
179 
 
180 
	dDiffSummary.Item ("UPDATED") = 0
181 
	dDiffSummary.Item ("REMOVED") = 0
182 
	dDiffSummary.Item ("ADDED") = 0
183 
 
184 
 
185 
	While ((NOT orsQry.BOF) AND (NOT orsQry.EOF))
186 
 
187 
		Select Case CInt( orsQry("status") )
188 
			Case enumDB_NUM_DIFF_UPDATED
189 
				dDiffSummary.Item ("UPDATED") = CInt( dDiffSummary.Item ("UPDATED") ) + 1
190 
 
191 
			Case enumDB_NUM_DIFF_REMOVED
192 
				dDiffSummary.Item ("REMOVED") = CInt( dDiffSummary.Item ("REMOVED") ) + 1
193 
 
194 
			Case enumDB_NUM_DIFF_NEW
195 
				dDiffSummary.Item ("ADDED") = CInt( dDiffSummary.Item ("ADDED") ) + 1
196 
 
197 
		End Select
198 
 
199 
		orsQry.MoveNext
200 
	WEnd
201 
 
202 
 
203 
	' Reset cursor
204 
	orsQry.MoveFirst()
205 
 
206 
 
207 
	' Display Summary
208 
	Response.write dDiffSummary.Item ("UPDATED") &" -<img src='images/i_updated.gif' width='11' height='11' hspace='3'>Updated, "
209 
	Response.write dDiffSummary.Item ("ADDED") &" -<img src='images/i_added.gif' width='11' height='11' hspace='3'>Added, "
210 
	Response.write dDiffSummary.Item ("REMOVED") &" -<img src='images/i_removed.gif' width='11' height='11' hspace='3'>Removed"
211 
 
212 
End Sub
213 
'-----------------------------------------------------------------------------------------------------------------
214 
Sub DisplayComponentChanges( nPvId, nComparePvId )
215 
	Dim rsComp, sSize, sIcon, sDiffStateIcon, sStyle
216 
 
217 
	'''''Response.write nPvId &" "& nComparePvId
218 
 
219 
	OraDatabase.Parameters.Add "PV_ID", nPvId,	ORAPARM_INPUT, ORATYPE_NUMBER
220 
	OraDatabase.Parameters.Add "COMPARE_PV_ID", nComparePvId,	ORAPARM_INPUT, ORATYPE_NUMBER
221 
 
222 
	Set rsComp = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponentDiff.sql"), cint(0))
223 
 
224 
	OraDatabase.Parameters.Remove "PV_ID"
225 
	OraDatabase.Parameters.Remove "COMPARE_PV_ID"
226 
 
227 
	%>
228 
 
229 
	  <%If rsComp.Recordcount < 1 Then%>
230 
 
231 
 
232 
 
233 
	  <%Else%>
234 
 
235 
	  <table width="100%"  border="0" cellspacing="1" cellpadding="3">
236 
              <tr>
237 
		  		<td width="1" background="images/bg_form_lightbluedark.gif" class="form_item"></td>
238 
                <td width="50%" background="images/bg_form_lightbluedark.gif" class="form_item">Name</td>
239 
                <td width="50%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">Byte Size</td>
240 
              </tr>
241 
			<%
242 
			While ((NOT rsComp.BOF) AND (NOT rsComp.EOF))
243 
 
244 
				Call GetDiffStateIcon( rsComp("diff_state"), sDiffStateIcon, sStyle )
245 
 
246 
				' Find if this is file or folder
247 
				If IsNull( rsComp("crc_cksum") )  AND  (rsComp("byte_size") = 0) Then
248 
					sSize = ""
249 
					sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
250 
				Else
251 
					sSize = rsComp("byte_size")
252 
					sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
253 
				End If
254 
 
255 
			%>
256 
			  <%If NOT dFileFilter.Exists ( CStr(rsComp("diff_state")) ) Then%>
257 
              <tr>
258 
		  		<td background="images/bg_form_lightgray.gif" nowrap class="body_txt_gray"><%=sDiffStateIcon%></td>
259 
                <td background="images/bg_form_lightgray.gif" nowrap class="<%=sStyle%>"><%=sIcon & rsComp("name")%></td>
260 
                <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap align="right"><%=sSize%></td>
261 
              </tr>
262 
			  <%End If%>
263 
		<%
264 
			rsComp.MoveNext
265 
		WEnd
266 
 
267 
		rsComp.Close()
268 
		Set rsComp = nothing
269 
		%>
270 
            </table><br>
271 
 
272 
  	  <%End If%>
273 
 
274 
 
275 
	<%
276 
End Sub
277 
'--------------------------------------------------------------------------------------------------------------------------------------
278 
Sub GetDiffStateIcon( nDiffState, outIcon, outStyle )
279 
	Select Case CInt( nDiffState )
280 
		Case enumDB_NUM_DIFF_UPDATED
281 
			outIcon  = LIMG_UPDATED
282 
			outStyle = "body_rowbold"
283 
 
284 
		Case enumDB_NUM_DIFF_REMOVED
285 
			outIcon = LIMG_REMOVED
286 
			outStyle = "body_rowthru"
287 
 
288 
		Case enumDB_NUM_DIFF_NEW
289 
			outIcon = LIMG_ADDED
290 
			outStyle = "body_rowbold"
291 
 
292 
		Case Else
293 
			outIcon = ""
294 
			outStyle = "body_rowg"
295 
 
296 
	End Select
297 
 
298 
End Sub
299 
'-----------------------------------------------------------------------------------------------------------------
300 
%>
301 
<%
302 
'------------------------- MAIN LINE ---------------------------
303 
 
304 
Call GetDepFilterValues ( dDepFilter )
305 
Call GetFileFilterValues ( dFileFilter )
306 
 
307 
'---------------------------------------------------------------
308 
%>
309 
<!-- MAIN PAGE ------------------------------------------>
310 
 
311 
	<a name="MODULECHANGES"></a>
312 
	<form name="modulechanges" method="get" action="<%=ScriptName%>?#MODULECHANGES" onSubmit="ProgressBar.style.visibility='visible';">
313 
		<%
314 
		' Make database connection
315 
		OraDatabase.Parameters.Add "PV_ID", 		parPv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
316 
		OraDatabase.Parameters.Add "OLD_PV_ID", 	parComparePvId, 	ORAPARM_INPUT, ORATYPE_NUMBER
317 
 
318 
		Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ( "diff_dependencies.sql" ), cint(0))
319 
 
320 
		OraDatabase.Parameters.Remove "PV_ID"
321 
		OraDatabase.Parameters.Remove "OLD_PV_ID"
322 
 
323 
		%>
324 
 
325 
 
326 
		<%If rsTemp.Recordcount > 0 Then%>
327 
		<table width="100%"  border="0" cellspacing="0" cellpadding="10">
328 
            <tr>
329 
              <td nowrap background="images/bg_action_norm.gif" class="body_txt">
330 
              	Showing differences since version
331 
              <select name="compare_pv_id" class="form_item">
332 
				<%Call DisplayComparePvIdCombo()%>
333 
	          </select>
334 
			  <input name="btn" type="submit" class="form_btn" value="Compare"></td>
335 
		        <td align="right" nowrap background="images/bg_action_norm.gif" class="body_txt">
336 
			  <%Call DisplayDiffSummary( rsTemp ) %>			  </td>
337 
          </tr>
338 
      </table>
339 
 
340 
		<table width="100%"  border="0" cellspacing="0" cellpadding="5">
341 
            <tr>
342 
              <td width="100%" valign="top" nowrap background="images/bg_bage.gif" class="body_txt">
343 
              	<%If parFileDiff <> "" Then%>
344 
					<input name="btn" type="submit" class="form_btn" value="Collapse Files and Folders...">
345 
				<%Else%>
346 
				    <input name="btn" type="submit" class="form_btn" value="Expand Files and Folders...">
347 
			  <%End If%>			</td>
348 
 
349 
		        <td width="1" valign="top" nowrap background="images/bg_bage.gif">
350 
 
351 
				<%If parFileDiff <> "" Then%>
352 
				<!-- FILE FILTER +++++++++++++++++++++++++++++++++++++++++++ -->
353 
				<fieldset>
354 
				<legend><a href="javascript:;" class="body_scol" onClick="ToggleDisplay('divFileFilter');" ><%=GetIsFileFilterInUseIcon() %>&nbsp;Hide&nbsp;Files&nbsp;and&nbsp;Folders...</a></legend>
355 
				    <div name="divFileFilter" id="divFileFilter" class="body_txt" style="display:none;">
356 
					<br>
357 
					      <table width="100%"  border="0" cellspacing="1" cellpadding="3">
358 
	                        <tr>
359 
	                          <td width="1" background="images/bg_action_norm.gif"><input name="filefilter" type="checkbox" value="<%=enumDB_NUM_DIFF_UPDATED%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_UPDATED)%>></td>
360 
	                          <td width="50" nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_UPDATED%>Updated</td>
361 
	                        </tr>
362 
	                        <tr>
363 
	                          <td background="images/bg_action_norm.gif"><input type="checkbox" name="filefilter" value="<%=enumDB_NUM_DIFF_NEW%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_NEW)%>></td>
364 
	                          <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_ADDED%>Added</td>
365 
	                        </tr>
366 
	                        <tr>
367 
	                          <td background="images/bg_action_norm.gif"><input type="checkbox" name="filefilter" value="<%=enumDB_NUM_DIFF_REMOVED%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_REMOVED)%>></td>
368 
	                          <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_REMOVED%>Removed</td>
369 
	                        </tr>
370 
	                        <tr>
371 
	                          <td background="images/bg_action_norm.gif"><input type="checkbox" name="filefilter" value="<%=enumDB_NUM_DIFF_NO_CHANGE%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_NO_CHANGE)%>></td>
372 
	                          <td nowrap background="images/bg_action_norm.gif" class="form_field">Unchanged</td>
373 
	                        </tr>
374 
	                        <tr>
375 
	                          <td background="images/bg_action_norm.gif">&nbsp;</td>
376 
	                          <td background="images/bg_action_norm.gif"><input name="btn" type="submit" class="form_btn" id="btn" value="Hide"></td>
377 
	                        </tr>
378 
	                      </table>
379 
 
380 
 			        </div>
381 
				</fieldset>
382 
				<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
383 
				<%End If%>
384 
 
385 
				</td>
386 
 
387 
				<td width="1" valign="top" nowrap background="images/bg_bage.gif">
388 
 
389 
                  <!-- DEPENDENCY FILTER +++++++++++++++++++++++++++++++++++++++++++ -->
390 
				  <fieldset>
391 
				  <legend><a href="javascript:;" class="body_scol" onClick="ToggleDisplay('divDependencyFilter');" ><%=GetIsDepFilterInUseIcon() %>&nbsp;Hide&nbsp;Dependencies...</a></legend>
392 
                          <div name="divDependencyFilter" id="divDependencyFilter" class="body_txt" style="display:none;">
393 
						  <br>
394 
						    <table width="100%"  border="0" cellspacing="1" cellpadding="3">
395 
                              <tr>
396 
                                <td width="1" background="images/bg_action_norm.gif"><input name="depfilter" type="checkbox" value="<%=enumDB_NUM_DIFF_UPDATED%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_UPDATED)%>></td>
397 
                                <td width="50" nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_UPDATED%>Updated</td>
398 
                              </tr>
399 
                              <tr>
400 
                                <td background="images/bg_action_norm.gif"><input type="checkbox" name="depfilter" value="<%=enumDB_NUM_DIFF_NEW%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_NEW)%>></td>
401 
                                <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_ADDED%>Added</td>
402 
                              </tr>
403 
                              <tr>
404 
                                <td background="images/bg_action_norm.gif"><input type="checkbox" name="depfilter" value="<%=enumDB_NUM_DIFF_REMOVED%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_REMOVED)%>></td>
405 
                                <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_REMOVED%>Removed</td>
406 
                              </tr>
407 
                              <tr>
408 
                                <td background="images/bg_action_norm.gif"><input type="checkbox" name="depfilter" value="<%=enumDB_NUM_DIFF_NO_CHANGE%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_NO_CHANGE)%>></td>
409 
                                <td nowrap background="images/bg_action_norm.gif" class="form_field">Unchanged</td>
410 
                              </tr>
411 
                              <tr>
412 
                                <td background="images/bg_action_norm.gif">&nbsp;</td>
413 
                                <td background="images/bg_action_norm.gif"><input name="btn2" type="submit" class="form_btn" id="btn2" value="Hide"></td>
414 
                              </tr>
415 
                            </table>
416 
                        </div>
417 
				  </fieldset>
418 
                  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
419 
 
420 
                </td>
421 
          </tr>
422 
        </table>
423 
 
424 
 
425 
		<%End If%>
426 
 
427 
 
428 
		<table width="100%" border="0" cellspacing="1" cellpadding="3">
429 
		  <tr>
430 
		    <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"><img src='images/spacer.gif' width='11' height='11' hspace='2'></td>
431 
		    <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Name&nbsp;&nbsp;</td>
432 
		    <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Current Version&nbsp;&nbsp;</td>
433 
		    <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Previous Version</td>
434 
		  </tr>
435 
 
436 
	      <%If (rsTemp.RecordCount < 1) Then%>
437 
		  <tr>
438 
		    <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
439 
		    <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
440 
		    <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
441 
		    <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
442 
		  </tr>
443 
	  	  <%End If%>
444 
		  <%
445 
		  Dim style, icon
446 
		  While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
447 
		  		Call RowStyle ( rsTemp("status"), icon, style )
448 
		  %>
449 
 
450 
		  	  <%If NOT dDepFilter.Exists(CStr( rsTemp("status") )) Then%>
451 
				  <tr>
452 
				    <td background="images/bg_form_lightgray.gif" align="center"><%=icon%></td>
453 
				    <td nowrap background="images/bg_form_lightgray.gif" class="<%=style%>">
454 
					<%If NOT IsNull(rsTemp("pkg_version")) Then%>
455 
						<a href="<%=ScriptName &"?pv_id="& rsTemp("pv_id") &"&rtag_id="& parRtag_id %>" class="<%=style%>"><%=rsTemp("pkg_name")%></a>
456 
					<%Else%>
457 
						<%=rsTemp("pkg_name")%>
458 
					<%End If%>
459 
					</td>
460 
				    <td nowrap background="images/bg_form_lightgray.gif" class="<%=style%>"><%=rsTemp("pkg_version")%></td>
461 
					<td nowrap background="images/bg_form_lightgray.gif" class="<%=style%>"><%=rsTemp("previous_version")%></td>
462 
				  </tr>
463 
 
464 
			      <%If (parFileDiff <> "") AND ( rsTemp("status") <> enumDB_DIFF_NO_CHANGE ) Then%>
465 
				  <tr>
466 
				    <td>&nbsp;</td>
467 
				    <td>&nbsp;</td>
468 
				    <td colspan="2">
469 
					<%Call DisplayComponentChanges( rsTemp("pv_id"), rsTemp("old_pv_id") )%>
470 
					</td>
471 
				  </tr>
472 
			  	  <%End If%>
473 
 
474 
			  <%End If%>
475 
 
476 
 
477 
		  	<%rsTemp.MoveNext
478 
		  WEnd
479 
		  rsTemp.Close
480 
		  Set rsTemp = nothing
481 
 
482 
		  %>
483 
 
484 
		</table>
485 
		<input type="hidden" name="filediff" value="<%=parFileDiff%>">
486 
		<input type="hidden" name="pv_id" value="<%=parPv_Id%>">
487 
		<input type="hidden" name="rtag_id" value="<%=parRtag_Id%>">
488 
		<input type="hidden" name="rfile" value="<%=Request("rfile")%>">
489 
	</form>
490