Subversion Repositories DevTools

Rev

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