Subversion Repositories DevTools

Rev

Rev 3866 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3866 Rev 3872
Line 24... Line 24...
24 
'------------ ACCESS CONTROL ------------------
 24 
'------------ ACCESS CONTROL ------------------
25 
%>
 25 
%>
26 
<!--#include file="_access_control_general.asp"-->
 26 
<!--#include file="_access_control_general.asp"-->
27 
<%
 27 
<%
28 
'------------ Variable Definition -------------
 28 
'------------ Variable Definition -------------
29 
Dim rsTemp
 - 
 
30 
Dim rsQry
 - 
 
31 
Dim isProduct
 - 
 
32 
Dim sLink
 - 
 
33 
Dim sSize
 - 
 
34 
Dim sIcon
 - 
 
35 
Dim parComparePvId
 - 
 
36 
Dim parCompare
 29 
Dim pkgCompare
37 
Dim parOsType
 30 
pkgCompare = TRUE
38 
Dim sDiffStateIcon
 - 
 
39 
Dim sStyle
 31 
 
40 
Dim dAvailableOsTypes
 - 
 
41 
'------------ Constants Declaration -----------
 32 
'------------ Constants Declaration -----------
42 
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Updated'>"
 - 
 
43 
Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Added'>"
 - 
 
44 
Const LIMG_REMOVED = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Removed'>"
 - 
 
45 
'------------ Variable Init -------------------
 33 
'------------ Variable Init -------------------
46 
parComparePvId = Request("compare_pv_id")
 - 
 
47 
parCompare = Request("compare")
 - 
 
48 
parOsType = Request("os_type")
 - 
 
49 
'----------------------------------------------
 - 
 
50 
If Request("btn") = "Compare" Then
 - 
 
51 
	parCompare = "true"
 - 
 
52 
End If
 - 
 
53 
Set dAvailableOsTypes = CreateObject("Scripting.Dictionary")
 - 
 
54 
'----------------------------------------------
 - 
 
55 
%>
 - 
 
56 
<%
 - 
 
57 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
58 
Function GetModuleComponents ( nPvId )
 - 
 
59 
	' TODO...
 - 
 
60 
End Function
 - 
 
61 
 
 - 
 
62 
 
 - 
 
63 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
64 
Sub DisplayMessage ()
 - 
 
65 
	If (pkgInfoHash.Item ("dlocked") = "Y") Then
 - 
 
66 
		If (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") > 0) Then
- 
 
67 
			Select Case CStr( pkgInfoHash.Item ("release_notes_info") )
 - 
 
68 
			Case enum_RELEASE_NOTES_GENERATING
 - 
 
69 
				Call DisplayInfo ( "GENERATING_RELEASE_NOTES", "400" )
 - 
 
70 
			Case enum_RELEASE_NOTES_NOT_FOUND_IN_ARCHIVE
 - 
 
71 
				Call DisplayInfo ( "NOT_FOUND_IN_PKG_ARCHIVE_FILE_GENERATE", "400" )
 - 
 
72 
			Case enum_RELEASE_NOTES_FAILED
 - 
 
73 
				Call DisplayInfo ( "FAILED_GENERATING_RELEASE_NOTES", "400" )
 - 
 
74 
			Case enum_RELEASE_NOTES_NO_PREVIOUS_VERSION
 - 
 
75 
				Call DisplayInfo ( "NO_PREVIOUS_VERSION_RELEASE_NOTES", "400" )
 - 
 
76 
			End Select
 - 
 
77
- 
 
78 
		ElseIf IsNull(pkgInfoHash.Item ("release_notes_info")) Then
 - 
 
79 
			Call DisplayInfo ( "GENERATE_FILES_AND_FOLDERS", "400" )
 - 
 
80
- 
 
81 
		End If
 - 
 
82
- 
 
83 
	End If
 - 
 
84 
End Sub
 - 
 
85 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
86 
Sub GetProductOsTypes ( outAvailableOsTypes, outOsType )
 - 
 
87 
	Dim rsQry
 - 
 
88
- 
 
89 
	' --- Get all available product os types from captured components ---
 - 
 
90 
	OraDatabase.Parameters.Add "PV_ID", parPv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
91
- 
 
92 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductBuildOsTypes.sql"), cint(0))
 - 
 
93
- 
 
94 
	OraDatabase.Parameters.Remove "PV_ID"
 - 
 
95
- 
 
96
- 
 
97 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 - 
 
98 
		outAvailableOsTypes.Item (CStr(rsQry("os_id"))) = CStr(rsQry("os_id"))
 - 
 
99
- 
 
100 
		If outOsType = "" Then
 - 
 
101 
			outOsType = CStr(rsQry("os_id"))
 - 
 
102 
		End If
 - 
 
103
- 
 
104 
		rsQry.MoveNext
 - 
 
105 
    WEnd
 - 
 
106
- 
 
107 
	rsQry.Close()
 - 
 
108 
	Set rsQry = nothing
 - 
 
109
- 
 
110 
End Sub
 - 
 
111 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
112 
Sub DisplayOsTypeCombo ( )
 - 
 
113 
	Dim sOsType, aOsTypeParts, selected
 - 
 
114
- 
 
115
- 
 
116 
	' -- Render combo box ---
 - 
 
117 
	If dAvailableOsTypes.Count > 0 Then
 - 
 
118 
		For Each sOsType In aPRODUCT_OS_BUILD_TYPES
 - 
 
119 
			aOsTypeParts = Split( sOsType, "|")
 - 
 
120
- 
 
121
- 
 
122 
			If dAvailableOsTypes.Exists ( CStr(aOsTypeParts(1)) ) Then
- 
 
123 
				' Define selected item
 - 
 
124
- 
 
125 
				selected = ""
 - 
 
126
- 
 
127 
				If parOsType = "" Then
 - 
 
128 
					parOsType = aOsTypeParts(1)
 - 
 
129 
					selected = "selected"
 - 
 
130 
				Else
 - 
 
131 
					If CStr(parOsType) = CStr(aOsTypeParts(1)) Then
 - 
 
132 
						selected = "selected"
 - 
 
133 
					End If
 - 
 
134 
				End If
 - 
 
135
- 
 
136 
				Response.write "<option value='"& aOsTypeParts(1) &"' "& selected &">"& aOsTypeParts(0) &"</option>"
 - 
 
137
- 
 
138 
			End If
 - 
 
139
- 
 
140 
		Next
 - 
 
141 
	End If
 - 
 
142
- 
 
143 
End Sub
 - 
 
144 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
145 
Sub DisplayComparePvIdCombo()
 - 
 
146 
	Dim rsQry, isOfficial
 - 
 
147
- 
 
148 
	' Define version to compare
 - 
 
149 
	If parComparePvId = "" Then
 - 
 
150 
		If NOT IsNull( pkgInfoHash.Item("last_pv_id") ) Then
- 
 
151 
			parComparePvId = pkgInfoHash.Item("last_pv_id")
 - 
 
152 
		Else
 - 
 
153 
			parComparePvId = 0
 - 
 
154 
		End If
 - 
 
155
- 
 
156 
	End If
 - 
 
157
- 
 
158
- 
 
159 
	OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
160 
	OraDatabase.Parameters.Add "PKG_ID", 		pkgInfoHash.Item("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
161
- 
 
162 
	If IsNull(pkgInfoHash.Item("v_ext")) OR (pkgInfoHash.Item("v_ext") = "") Then
 - 
 
163 
		OraDatabase.Parameters.Add "V_EXT", 		NULL,	ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
164 
	Else
 - 
 
165 
		OraDatabase.Parameters.Add "V_EXT", 		pkgInfoHash.Item("v_ext"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
166 
	End If
 - 
 
167
- 
 
168
- 
 
169 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0))
 - 
 
170
- 
 
171 
	Response.write "<option value=''></option>"
 - 
 
172
- 
 
173 
    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 - 
 
174
- 
 
175 
		If rsQry("dlocked") = "Y" Then
 - 
 
176 
			isOfficial = "R&nbsp;"
 - 
 
177 
		Else
 - 
 
178 
			isOfficial = "&nbsp;&nbsp;&nbsp;&nbsp;"
 - 
 
179 
		End If
 - 
 
180
- 
 
181 
		Response.write "<option value='"& rsQry("pv_id") &"' "& rsQry("selected") &" >"& isOfficial & rsQry("pkg_version") &"</option>"
 - 
 
182
- 
 
183 
		rsQry.MoveNext
 - 
 
184 
    WEnd
 - 
 
185
- 
 
186 
	' Clean up
 - 
 
187 
	rsQry.Close()
 - 
 
188 
	Set rsQry = nothing
 - 
 
189
- 
 
190 
	OraDatabase.Parameters.Remove "COMPARE_PV_ID"
 - 
 
191 
	OraDatabase.Parameters.Remove "PKG_ID"
 - 
 
192 
	OraDatabase.Parameters.Remove "V_EXT"
 - 
 
193
- 
 
194 
End Sub
 - 
 
195 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
196 
Sub GetDiffStateIcon( nDiffState, outIcon, outStyle )
 - 
 
197 
	Select Case CInt( nDiffState )
 - 
 
198 
		Case enumDB_NUM_DIFF_UPDATED
 - 
 
199 
			outIcon  = LIMG_UPDATED
 - 
 
200 
			outStyle = "body_rowbold"
 - 
 
201
- 
 
202 
		Case enumDB_NUM_DIFF_REMOVED
 - 
 
203 
			outIcon = LIMG_REMOVED
 - 
 
204 
			outStyle = "body_rowthru"
 - 
 
205
- 
 
206 
		Case enumDB_NUM_DIFF_NEW
 - 
 
207 
			outIcon = LIMG_ADDED
 - 
 
208 
			outStyle = "body_rowbold"
 - 
 
209
- 
 
210 
		Case Else
 - 
 
211 
			outIcon = ""
 - 
 
212 
			outStyle = "body_rowg"
 - 
 
213
- 
 
214 
	End Select
 - 
 
215
- 
 
216 
End Sub
 - 
 
217 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
218 
Sub DisplayDiffSummary( orsQry )
 - 
 
219 
	Dim dDiffSummary
 - 
 
220 
	Set dDiffSummary = CreateObject("Scripting.Dictionary")
 - 
 
221
- 
 
222 
	dDiffSummary.Item ("UPDATED") = 0
 - 
 
223 
	dDiffSummary.Item ("REMOVED") = 0
 - 
 
224 
	dDiffSummary.Item ("ADDED") = 0
 - 
 
225
- 
 
226 
	While ((NOT orsQry.BOF) AND (NOT orsQry.EOF))
 - 
 
227
- 
 
228 
		Select Case CInt( orsQry("diff_state") )
 - 
 
229 
			Case enumDB_NUM_DIFF_UPDATED
 - 
 
230 
				dDiffSummary.Item ("UPDATED") = CInt( dDiffSummary.Item ("UPDATED") ) + 1
 - 
 
231
- 
 
232 
			Case enumDB_NUM_DIFF_REMOVED
 - 
 
233 
				dDiffSummary.Item ("REMOVED") = CInt( dDiffSummary.Item ("REMOVED") ) + 1
 - 
 
234
- 
 
235 
			Case enumDB_NUM_DIFF_NEW
 - 
 
236 
				dDiffSummary.Item ("ADDED") = CInt( dDiffSummary.Item ("ADDED") ) + 1
 - 
 
237
- 
 
238 
		End Select
 - 
 
239
- 
 
240 
		orsQry.MoveNext
 - 
 
241 
	WEnd
 - 
 
242
- 
 
243
- 
 
244 
	' Reset cursor
 - 
 
245 
	orsQry.MoveFirst()
 - 
 
246
- 
 
247
- 
 
248 
	' Display Summary
 - 
 
249 
	Response.write dDiffSummary.Item ("UPDATED") &" -<img src='images/i_updated.gif' width='11' height='11' hspace='3'>Updated, "
 - 
 
250 
	Response.write dDiffSummary.Item ("ADDED") &" -<img src='images/i_added.gif' width='11' height='11' hspace='3'>Added, "
 - 
 
251 
	Response.write dDiffSummary.Item ("REMOVED") &" -<img src='images/i_removed.gif' width='11' height='11' hspace='3'>Removed"
 - 
 
252
- 
 
253 
End Sub
 - 
 
254 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
255 
%>
 34 
%>
256 
<html>
 35 
<html>
257 
<title><%=Title(Request("rtag_id"))%></title>
 36 
<title><%=Title(Request("rtag_id"))%></title>
258 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 37 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
259 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 38 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
Line 319... Line 98...
319 
		  </tr>
 98 
		  </tr>
320 
		  <tr>
 99 
		  <tr>
321 
		    <td></td>
 100 
		    <td></td>
322 
		    <td valign="top">
 101 
		    <td valign="top">
323 
			<!-- DETAILS ------------------------------------------------->
 102 
			<!-- DETAILS ------------------------------------------------->
324 
			<%
 - 
 
325 
			' --- Decide if pv_id is ERG Product ---
 - 
 
326 
			isProduct = FALSE
 - 
 
327 
 
 - 
 
328 
            if NOT IsEmpty(parOsType) Then
 - 
 
329 
 
 - 
 
330 
			    If NOT IsNull( pkgInfoHash.Item("base_view_id") ) OR ( pkgInfoHash.Item("base_view_id") <> "") Then
 - 
 
331 
				    If CInt(pkgInfoHash.Item("base_view_id")) = enumBASE_VIEW_PRODUCTS Then
 - 
 
332 
				        isProduct = TRUE
 - 
 
333 
			        End If
 - 
 
334 
			    Else
 - 
 
335 
				    ' Try to be smart and decide if it is ERG product by name
 - 
 
336 
				    If InStr( pkgInfoHash.Item("pkg_name"), "ERG", 0) = 1  Then
 - 
 
337 
				        isProduct = TRUE
 - 
 
338 
			        End If
 - 
 
339 
                End If
 - 
 
340 
			End If
 - 
 
341 
 
 - 
 
342 
			%>
- 
 
343
- 
 
344 
			<%
 - 
 
345 
			' -- Open Database connection
 - 
 
346 
			If isProduct Then
 - 
 
347 
				Call GetProductOsTypes ( dAvailableOsTypes, parOsType )
 - 
 
348
- 
 
349 
				If parCompare <> "" Then
 - 
 
350 
					OraDatabase.Parameters.Add "PV_ID", parPv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
351 
					OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
352 
					OraDatabase.Parameters.Add "OS_ID", parOsType,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
353
- 
 
354 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductComponentDiff.sql"), cint(0))
 - 
 
355
- 
 
356 
					OraDatabase.Parameters.Remove "PV_ID"
 - 
 
357 
					OraDatabase.Parameters.Remove "COMPARE_PV_ID"
 - 
 
358 
					OraDatabase.Parameters.Remove "OS_ID"
 - 
 
359
- 
 
360 
				Else
 - 
 
361
- 
 
362 
					OraDatabase.Parameters.Add "PV_ID", parPv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
363 
					OraDatabase.Parameters.Add "OS_ID", parOsType,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
364
- 
 
365 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductComponents.sql"), cint(0))
 - 
 
366
- 
 
367 
					OraDatabase.Parameters.Remove "PV_ID"
 - 
 
368 
					OraDatabase.Parameters.Remove "OS_ID"
 - 
 
369 
				End If
 - 
 
370
- 
 
371 
			Else
 - 
 
372
- 
 
373 
				If parCompare <> "" Then
 - 
 
374 
					OraDatabase.Parameters.Add "PV_ID", parPv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
375 
					OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
376
- 
 
377 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponentDiff.sql"), cint(0))
 - 
 
378
- 
 
379 
					OraDatabase.Parameters.Remove "PV_ID"
 - 
 
380 
					OraDatabase.Parameters.Remove "COMPARE_PV_ID"
 - 
 
381
- 
 
382 
				Else
 - 
 
383 
					OraDatabase.Parameters.Add "PV_ID", parPv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
384
- 
 
385 
					Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponents.sql"), cint(0))
 - 
 
386
- 
 
387 
					OraDatabase.Parameters.Remove "PV_ID"
 - 
 
388
- 
 
389 
				End If
 - 
 
390
- 
 
391 
			End If
 - 
 
392 
			%>
 - 
 
393
- 
 
394
- 
 
395
- 
 
396 
			<form name="formname" method="get" action="<%=ScriptName%>" onSubmit="ProgressBar.style.visibility='visible';">
 - 
 
397 
			<br>
- 
 
398 
                        <span class="body_colb">Files and Folders</span><br>
 103 
            <!--#include file="_files_and_folders.asp"-->
399
- 
 
400 
						<%If rsQry.Recordcount > 0 Then%>
 - 
 
401 
						<table width="100%"  border="0" cellspacing="1" cellpadding="3">
 - 
 
402 
	                      <tr>
 - 
 
403 
	                        <td nowrap class="body_txt">
 - 
 
404 
	                        	Show differences since version
 - 
 
405 
		                        <select name="compare_pv_id" class="form_item">
 - 
 
406 
								<%Call DisplayComparePvIdCombo()%>
 - 
 
407 
		              			</select>
 - 
 
408 
								<input name="btn" type="submit" class="form_btn" value="Compare">
- 
 
409 
							</td>
 - 
 
410 
	                        <td nowrap class="body_txt" align="right">
 - 
 
411 
								<%If parCompare <> "" Then%>
 - 
 
412 
									<%Call DisplayDiffSummary( rsQry ) %>
 - 
 
413 
								<%End If%>
 - 
 
414 
							</td>
 - 
 
415 
	                      </tr>
 - 
 
416 
	                    </table>
 - 
 
417 
						<hr size="1" noshade color="#999999">
- 
 
418 
						<%End If%>
- 
 
419
- 
 
420
- 
 
421
- 
 
422
- 
 
423
- 
 
424
- 
 
425
- 
 
426 
			  <%If isProduct Then%>
 - 
 
427
- 
 
428 
				  <%If rsQry.Recordcount > 0 Then%>
 - 
 
429 
				  <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 - 
 
430 
                    <tr>
 - 
 
431 
                      <td nowrap class="body_txt">Build Platform
 - 
 
432 
                        <select name="os_type" class="form_item">
 - 
 
433 
						<%Call DisplayOsTypeCombo()%>
 - 
 
434 
                        </select>
 - 
 
435 
                        <input name="btn" type="submit" class="form_btn" value="View"></td>
 - 
 
436 
                    </tr>
 - 
 
437 
                  </table>
- 
 
438 
				  <%End If%>
- 
 
439
- 
 
440 
				  <%If rsQry.Recordcount < 1 Then%>
 - 
 
441
- 
 
442 
					<%
 - 
 
443 
					' No files found ...
 - 
 
444 
					Call DisplayInfo ( "NO_PRODUCT_FILES_CAPTURED", "400" )
 - 
 
445 
					%>
 - 
 
446
- 
 
447 
				  <%End If%>
 - 
 
448
- 
 
449 
			   <%End If%>
- 
 
450
- 
 
451
- 
 
452
- 
 
453
- 
 
454
- 
 
455 
			  <!-- MODULE COMPONENTS ++++++++++++++++++++++++++++++++++++++ -->
- 
 
456
- 
 
457
- 
 
458 
			  	  <!-- ==================================================== -->
 - 
 
459 
				  <!-- ===================  COMPARE ======================= -->
 - 
 
460 
				  <!-- ==================================================== -->
 - 
 
461 
				  <%If parCompare <> "" Then%>
 - 
 
462
- 
 
463 
 
 - 
 
464 
					  <%If rsQry.Recordcount > 0 Then%>
 - 
 
465
- 
 
466
- 
 
467 
					  <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 - 
 
468 
		                <tr>
 - 
 
469 
						  <td width="1" background="images/bg_form_lightbluedark.gif" class="form_item"></td>
 - 
 
470 
		                  <td width="50%" background="images/bg_form_lightbluedark.gif" class="form_item">Name</td>
 - 
 
471 
		                  <td width="50%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">Byte Size</td>
 - 
 
472 
		                </tr>
 - 
 
473 
						<%
 - 
 
474 
						While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
- 
 
475
- 
 
476 
							Call GetDiffStateIcon( rsQry("diff_state"), sDiffStateIcon, sStyle )
 - 
 
477
- 
 
478 
							' Find if this is file or folder
 - 
 
479 
							If IsNull( rsQry("crc_cksum") )  AND  (rsQry("byte_size") = 0) Then
- 
 
480 
								sSize = ""
 - 
 
481 
								sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
 - 
 
482 
							Else
 - 
 
483 
								sSize = rsQry("byte_size")
 - 
 
484 
								sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
 - 
 
485 
							End If
 - 
 
486
- 
 
487 
						%>
 - 
 
488 
		                <tr>
 - 
 
489 
						  <td background="images/bg_form_lightgray.gif" nowrap class="body_txt_gray"><%=sDiffStateIcon%></td>
 - 
 
490 
		                  <td background="images/bg_form_lightgray.gif" nowrap class="<%=sStyle%>"><%=sIcon & rsQry("name")%></td>
 - 
 
491 
		                  <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap align="right"><%=sSize%></td>
 - 
 
492 
		                </tr>
 - 
 
493 
						<%
 - 
 
494 
							rsQry.MoveNext
 - 
 
495 
						WEnd
 - 
 
496
- 
 
497 
						rsQry.Close()
 - 
 
498 
						Set rsQry = nothing
 - 
 
499 
						%>
 - 
 
500 
		              </table><br>
 - 
 
501
- 
 
502 
				  	  <%End If%>
 - 
 
503
- 
 
504
- 
 
505 
				  <%Else%>
 - 
 
506 
				  <!-- ==================================================== -->
 - 
 
507 
				  <!-- =================== NORMAL FILES =================== -->
 - 
 
508 
				  <!-- ==================================================== -->
 - 
 
509 
 
 - 
 
510 
					  <%If rsQry.Recordcount < 1 Then%>
 - 
 
511
- 
 
512 
						<%
 - 
 
513 
						' No files found ...
 - 
 
514 
						Call DisplayMessage ()
 - 
 
515 
						%>
 - 
 
516
- 
 
517 
					  <%Else%>
 - 
 
518
- 
 
519 
					  <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 - 
 
520 
		                <tr>
 - 
 
521 
		                  <td width="25%" background="images/bg_form_lightbluedark.gif" class="form_item">Name</td>
 - 
 
522 
		                  <td width="25%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">Byte Size</td>
 - 
 
523 
		                  <td width="25%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">CKSUM</td>
 - 
 
524 
		                  <td width="25%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">MODCRC</td>
 - 
 
525 
		                </tr>
 - 
 
526 
						<%
 - 
 
527 
						Dim uRL
 - 
 
528 
						While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
- 
 
529 
							sLink = dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& Replace( rsQry("file_path") & rsQry("file_name"), "\", "/" )
 - 
 
530
- 
 
531 
							' Find if this is file or folder
 - 
 
532 
							If IsNull( rsQry("crc_cksum") )  AND  (rsQry("byte_size") = 0) Then
- 
 
533 
								sSize = ""
 - 
 
534 
								sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
 - 
 
535 
							Else
 - 
 
536 
								sSize = rsQry("byte_size")
 - 
 
537 
								sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
 - 
 
538 
							End If
 - 
 
539
- 
 
540 
						%>
 - 
 
541 
		                <tr>
 - 
 
542 
		                  <td background="images/bg_form_lightgray.gif" nowrap><a target="_blank" href="<%=sLink%>" class="body_txt_gray_link"><%=sIcon & rsQry("file_path") & rsQry("file_name")%></a></td>
 - 
 
543 
		                  <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap align="right"><%=sSize%></td>
 - 
 
544 
		                  <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap align="right"><%=rsQry("crc_cksum")%></td>
 - 
 
545 
		                  <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap align="right"><%=rsQry("crc_modcrc")%></td>
 - 
 
546 
		                </tr>
 - 
 
547 
						<%
 - 
 
548 
							rsQry.MoveNext
 - 
 
549 
						WEnd
 - 
 
550
- 
 
551 
						rsQry.Close()
 - 
 
552 
						Set rsQry = nothing
 - 
 
553 
						%>
 - 
 
554 
		              </table><br>
 - 
 
555
- 
 
556 
				  	  <%End If%>
 - 
 
557
- 
 
558
- 
 
559 
				  <!-- ==================================================== -->
 - 
 
560 
				  <!-- ==================================================== -->
 - 
 
561 
				  <!-- ==================================================== -->
- 
 
562 
			      <%End If%>
- 
 
563
- 
 
564 
			  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
565
- 
 
566
- 
 
567
- 
 
568
- 
 
569 
			  <%
 - 
 
570
- 
 
571 
			  '--- Clean up ---
 - 
 
572
- 
 
573
- 
 
574 
			  %>
 - 
 
575 
			  <input type="hidden" name="compare" value="<%=parCompare%>">
 - 
 
576 
			  <input type="hidden" name="pv_id" value="<%=parPv_Id%>">
 - 
 
577 
			  <input type="hidden" name="rtag_id" value="<%=parRtag_Id%>">
 - 
 
578 
			</form>
 - 
 
579 
			<!-- END DETAILS ------------------------------------------------->
 104 
			<!-- END DETAILS ------------------------------------------------->
580 
			</td>
 105 
			</td>
581 
		    <td>&nbsp;</td>
 106 
		    <td>&nbsp;</td>
582 
		  </tr>
 107 
		  </tr>
583 
		</table>
 108 
		</table>