Subversion Repositories DevTools

Rev

Rev 6827 | Rev 6877 | 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 
 
6790 dpurdie 265 
	  <table width="100%"  border="0" cellspacing="1" cellpadding="3" class=stdGrey>
266 
          <thead>
267 
                  <tr class="form_field_bg">
268 
                    <th width="1"  ></th>
269 
                    <th width="1"  ></th>
270 
                    <th width="50%">Name</th>
271 
                    <th width="50%" align="right">Byte Size</th>
272 
                  </tr>
273 
          </thead>
119 ghuddy 274 
			<%
275 
			While ((NOT rsComp.BOF) AND (NOT rsComp.EOF))
276 
 
277 
				Call GetDiffStateIcon( rsComp("diff_state"), sDiffStateIcon, sStyle )
278 
 
279 
				' Find if this is file or folder
280 
				If IsNull( rsComp("crc_cksum") )  AND  (rsComp("byte_size") = 0) Then
281 
					sSize = ""
282 
					sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
283 
				Else
284 
					sSize = rsComp("byte_size")
285 
					sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
286 
				End If
287 
 
288 
			%>
289 
			  <%If NOT dFileFilter.Exists ( CStr(rsComp("diff_state")) ) Then%>
6790 dpurdie 290 
              <tr>
291 
		  		<td nowrap><%=sDiffStateIcon%></td>
292 
		  		<td nowrap><%=sIcon%></td>
6788 dpurdie 293 
                <td nowrap class="<%=sStyle%>"><%=rsComp("name")%></td>
6790 dpurdie 294 
                <td nowrap align="right"><%=sSize%></td>
119 ghuddy 295 
              </tr>
296 
			  <%End If%>
297 
		<%
298 
			rsComp.MoveNext
299 
		WEnd
300 
		rsComp.Close()
301 
		Set rsComp = nothing
302 
		%>
6790 dpurdie 303 
       </table><br>
119 ghuddy 304 
  	  <%End If%>
6790 dpurdie 305 
<%End Sub
306 
 
119 ghuddy 307 
'--------------------------------------------------------------------------------------------------------------------------------------
308 
Sub GetDiffStateIcon( nDiffState, outIcon, outStyle )
309 
	Select Case CInt( nDiffState )
310 
		Case enumDB_NUM_DIFF_UPDATED
311 
			outIcon  = LIMG_UPDATED
312 
			outStyle = "body_rowbold"
313 
 
314 
		Case enumDB_NUM_DIFF_REMOVED
315 
			outIcon = LIMG_REMOVED
316 
			outStyle = "body_rowthru"
317 
 
318 
		Case enumDB_NUM_DIFF_NEW
319 
			outIcon = LIMG_ADDED
320 
			outStyle = "body_rowbold"
321 
 
322 
		Case Else
323 
			outIcon = ""
6790 dpurdie 324 
			outStyle = ""
119 ghuddy 325 
 
326 
	End Select
327 
 
328 
End Sub
329 
'-----------------------------------------------------------------------------------------------------------------
6683 dpurdie 330 
Sub DisplayFileFilter
331 
    If parFileDiff <> "" Then%>
332 
    <!-- FILE FILTER -->
333 
    <fieldset>
334 
        <legend>
6827 dpurdie 335 
            <span class="body_scol nowrap pointer" onClick="ToggleDisplay('divFileFilter');" ><%=GetIsFileFilterInUseIcon() %>&nbsp;Hide&nbsp;Files&nbsp;and&nbsp;Folders...</span>
6683 dpurdie 336 
        </legend>
337 
        <div name="divFileFilter" id="divFileFilter" class="body_txt" style="display:none;">
338 
              <table width="100%"  border="0" cellspacing="1" cellpadding="3">
339 
                <tr>
340 
                  <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>
341 
                  <td width="50" nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_UPDATED%>Updated</td>
342 
                </tr>
343 
                <tr>
344 
                  <td background="images/bg_action_norm.gif"><input type="checkbox" name="filefilter" value="<%=enumDB_NUM_DIFF_NEW%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_NEW)%>></td>
345 
                  <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_ADDED%>Added</td>
346 
                </tr>
347 
                <tr>
348 
                  <td background="images/bg_action_norm.gif"><input type="checkbox" name="filefilter" value="<%=enumDB_NUM_DIFF_REMOVED%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_REMOVED)%>></td>
349 
                  <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_REMOVED%>Removed</td>
350 
                </tr>
351 
                <tr>
352 
                  <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>
353 
                  <td nowrap background="images/bg_action_norm.gif" class="form_field">Unchanged</td>
354 
                </tr>
355 
                <tr>
356 
                  <td background="images/bg_action_norm.gif">&nbsp;</td>
357 
                  <td background="images/bg_action_norm.gif"><input name="btn" type="submit" class="form_btn" id="btn" value="Hide"></td>
358 
                </tr>
359 
              </table>
360 
        </div>
361 
    </fieldset>
362 
    <!-- END FILE FILTER -->
363 
    <%End If
364 
End Sub
365 
'-----------------------------------------------------------------------------------------------------------------
366 
Sub displayDepFilter %>
367 
    <!-- DEPENDENCY FILTER -->
368 
    <fieldset>
369 
          <legend>
6827 dpurdie 370 
            <span class="body_scol nowrap pointer" onClick="ToggleDisplay('divDependencyFilter');" ><%=GetIsDepFilterInUseIcon() %>&nbsp;Hide&nbsp;Dependencies...</span>
6683 dpurdie 371 
          </legend>
372 
          <div name="divDependencyFilter" id="divDependencyFilter" class="body_txt" style="display:none;">
373 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
374 
              <tr>
375 
                <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>
376 
                <td width="50" nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_UPDATED%>Updated</td>
377 
              </tr>
378 
              <tr>
379 
                <td background="images/bg_action_norm.gif"><input type="checkbox" name="depfilter" value="<%=enumDB_NUM_DIFF_NEW%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_NEW)%>></td>
380 
                <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_ADDED%>Added</td>
381 
              </tr>
382 
              <tr>
383 
                <td background="images/bg_action_norm.gif"><input type="checkbox" name="depfilter" value="<%=enumDB_NUM_DIFF_REMOVED%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_REMOVED)%>></td>
384 
                <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_REMOVED%>Removed</td>
385 
              </tr>
386 
              <tr>
387 
                <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>
388 
                <td nowrap background="images/bg_action_norm.gif" class="form_field">Unchanged</td>
389 
              </tr>
390 
              <tr>
391 
                <td background="images/bg_action_norm.gif">&nbsp;</td>
392 
                <td background="images/bg_action_norm.gif"><input name="btn2" type="submit" class="form_btn" id="btn2" value="Hide"></td>
393 
              </tr>
394 
            </table>
395 
        </div>
396 
    </fieldset>
397 
    <!-- END DEPENDENCY FILTER -->
398 
<%End Sub
119 ghuddy 399 
%>
400 
<%
401 
'------------------------- MAIN LINE ---------------------------
402 
 
403 
Call GetDepFilterValues ( dDepFilter )
404 
Call GetFileFilterValues ( dFileFilter )
405 
 
406 
'---------------------------------------------------------------
407 
%>
408 
<!-- MAIN PAGE ------------------------------------------>
409 
 
410 
	<a name="MODULECHANGES"></a>
6683 dpurdie 411 
    <script>
412 
        function setRefVersion(sel) {
413 
            var el = document.getElementsByName("compare_pv_id")[0];
414 
            var val = sel.value;
415 
            el.value = val;
416 
 
417 
            var el = document.getElementById("showVersion1");
418 
            el.value = val;
419 
 
420 
            var el = document.getElementById("showVersion2");
421 
            el.value = val;
422 
            if ( el.value != val ) {
423 
                el.value = -1;
424 
                }
425 
            }
426 
    </script>
119 ghuddy 427 
	<form name="modulechanges" method="get" action="<%=ScriptName%>?#MODULECHANGES" onSubmit="ProgressBar.style.visibility='visible';">
428 
		<%
6683 dpurdie 429 
 
119 ghuddy 430 
		' Make database connection
431 
		OraDatabase.Parameters.Add "PV_ID", 		parPv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
432 
		OraDatabase.Parameters.Add "OLD_PV_ID", 	parComparePvId, 	ORAPARM_INPUT, ORATYPE_NUMBER
433 
 
434 
		Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ( "diff_dependencies.sql" ), cint(0))
435 
 
436 
		OraDatabase.Parameters.Remove "PV_ID"
437 
		OraDatabase.Parameters.Remove "OLD_PV_ID"
438 
 
439 
		%>
440 
		<%If rsTemp.Recordcount > 0 Then%>
441 
		<table width="100%"  border="0" cellspacing="0" cellpadding="10">
442 
            <tr>
443 
              <td nowrap background="images/bg_action_norm.gif" class="body_txt">
6683 dpurdie 444 
                  <table>
445 
                      <tr nowrap background="images/bg_action_norm.gif" class="body_txt">
446 
                        <td class=nowrap>Show differences since version in release</td>
447 
                        <td>
448 
                            <select id=showVersion2 class="form_item" onChange="setRefVersion(this)">
449 
    				            <%Call DisplayCompareReleasePvIdCombo()%>
450 
    	                    </select></td>
451 
                      </tr>
452 
                      <tr nowrap background="images/bg_action_norm.gif" class="body_txt">
453 
                        <td class=nowrap>Showing differences since version</td>
454 
                        <td>
455 
                            <select id=showVersion1 class="form_item" onChange="setRefVersion(this)">
456 
    				            <%Call DisplayComparePvIdCombo()%>
457 
    	                    </select>
458 
                            <button type="submit" name="btn" class="form_btn" value=Compare>Compare</button></td>
459 
                      </tr>
460 
                  </table>
461 
		      <td align="right" nowrap background="images/bg_action_norm.gif" class="body_txt" valign="top">
462 
			    <%Call DisplayDiffSummary( rsTemp ) %>
463 
              </td>
464 
            </tr>
465 
        </table>
119 ghuddy 466 
		<table width="100%"  border="0" cellspacing="0" cellpadding="5">
467 
            <tr>
6876 dpurdie 468 
              <td width="100%" valign="top" nowrap class="bg_bage body_txt">
119 ghuddy 469 
              	<%If parFileDiff <> "" Then%>
6683 dpurdie 470 
                    <button type="submit" name="filediff" class="form_btn" value="">Collapse Files and Folders...</button></td>
119 ghuddy 471 
				<%Else%>
6683 dpurdie 472 
                    <button type="submit" name="filediff" class="form_btn" value="true">Expand Files and Folders...</button></td>
473 
			    <%End If%>
474 
              </td>
119 ghuddy 475 
 
6876 dpurdie 476 
		        <td nowrap class='bg_bage'>
6683 dpurdie 477 
                    <%Call DisplayFileFilter%>
119 ghuddy 478 
				</td>
6876 dpurdie 479 
		        <td nowrap class='bg_bage'>
6683 dpurdie 480 
				    <%Call displayDepFilter%>
119 ghuddy 481 
                </td>
482 
          </tr>
483 
        </table>
484 
 
485 
 
486 
		<%End If%>
6683 dpurdie 487 
		<%
488 
        %>
119 ghuddy 489 
 
6790 dpurdie 490 
		<table width="100%" border="0" cellspacing="1" cellpadding="3" class='etable stdGrey'>
491 
            <thead>
492 
    		  <tr>
493 
    		    <th nowrap width="1%">Change</th>
494 
    		    <th nowrap width="1%">Name&nbsp;&nbsp;</th>
495 
    		    <th nowrap width="1%">Current Version&nbsp;&nbsp;</th>
496 
    		    <th nowrap width="100%">Previous Version</th>
497 
    		  </tr>
498 
            </thead>
6683 dpurdie 499 
          <%
6787 dpurdie 500 
		    Dim style, icon, sText
501 
            icon  = Iif( Clng(DB_PV_ID) = cLng(parComparePvId),  "", LIMG_UPDATED)
502 
            sText = Iif( Clng(DB_PV_ID) = cLng(parComparePvId),  "No Change", "Changed")
6683 dpurdie 503 
          %>
6790 dpurdie 504 
	      <tr class="hdr csvData">
505 
		    <td nowrap class="tcenter" data-csv="<%=sText%>"><%=icon%></td>
506 
		    <td nowrap><%=pkgInfoHash.Item("pkg_name")%></td>
507 
		    <td nowrap><%=pkgInfoHash.Item("pkg_version")%></td>
508 
		    <td nowrap><%=preVerText%></td>
6683 dpurdie 509 
		  </tr>
510 
          <%If (parFileDiff <> "") Then%>
511 
          <tr>
512 
            <td>&nbsp;</td>
513 
            <td>&nbsp;</td>
514 
            <td colspan="2">
515 
            <%Call DisplayComponentChanges( DB_PV_ID, parComparePvId )%>
516 
            </td>
517 
          </tr>
518 
          <%End If%>
519 
 
119 ghuddy 520 
 
521 
	      <%If (rsTemp.RecordCount < 1) Then%>
6790 dpurdie 522 
          <tr>
6788 dpurdie 523 
		    <td nowrap>&nbsp;</td>
524 
		    <td nowrap>&nbsp;</td>
6790 dpurdie 525 
		    <td nowrap>&nbsp;</td>
526 
		    <td nowrap>&nbsp;</td>
119 ghuddy 527 
		  </tr>
528 
	  	  <%End If%>
529 
		  <%
530 
		  While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
6787 dpurdie 531 
		  		Call RowStyle ( rsTemp("status"), icon, style, sText )
119 ghuddy 532 
		  %>
533 
 
534 
		  	  <%If NOT dDepFilter.Exists(CStr( rsTemp("status") )) Then%>
6790 dpurdie 535 
				  <tr class="csvData">
6788 dpurdie 536 
				    <td align="center" data-csv="<%=sText%>"><%=icon%></td>
537 
				    <td nowrap class="<%=style%>">
119 ghuddy 538 
					<%If NOT IsNull(rsTemp("pkg_version")) Then%>
539 
						<a href="<%=ScriptName &"?pv_id="& rsTemp("pv_id") &"&rtag_id="& parRtag_id %>" class="<%=style%>"><%=rsTemp("pkg_name")%></a>
540 
					<%Else%>
541 
						<%=rsTemp("pkg_name")%>
542 
					<%End If%>
543 
					</td>
6788 dpurdie 544 
				    <td nowrap class="<%=style%>"><%=rsTemp("pkg_version")%></td>
545 
					<td nowrap class="<%=style%>"><%=rsTemp("previous_version")%></td>
119 ghuddy 546 
				  </tr>
547 
 
548 
			      <%If (parFileDiff <> "") AND ( rsTemp("status") <> enumDB_DIFF_NO_CHANGE ) Then%>
549 
				  <tr>
550 
				    <td>&nbsp;</td>
551 
				    <td>&nbsp;</td>
552 
				    <td colspan="2">
553 
					<%Call DisplayComponentChanges( rsTemp("pv_id"), rsTemp("old_pv_id") )%>
554 
					</td>
555 
				  </tr>
556 
			  	  <%End If%>
557 
 
558 
			  <%End If%>
559 
 
560 
 
561 
		  	<%rsTemp.MoveNext
562 
		  WEnd
563 
		  rsTemp.Close
564 
		  Set rsTemp = nothing
565 
 
566 
		  %>
567 
 
568 
		</table>
569 
		<input type="hidden" name="pv_id" value="<%=parPv_Id%>">
570 
		<input type="hidden" name="rtag_id" value="<%=parRtag_Id%>">
6683 dpurdie 571 
		<input type="hidden" name="compare_pv_id" value="<%=parComparePvId%>">
119 ghuddy 572 
	</form>
573