Subversion Repositories DevTools

Rev

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