Subversion Repositories DevTools

Rev

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