Subversion Repositories DevTools

Rev

Rev 7288 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3872 dpurdie 1 
<%
2 
'=====================================================
3 
'|                                                   |
6375 dpurdie 4 
'|                 Files and Folders                 |
3872 dpurdie 5 
'|                 Core implementation               |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
'------------ Variable Definition -------------
11 
Dim rsTemp
12 
Dim rsQry
13 
Dim sLink
14 
Dim sSize
6375 dpurdie 15 
Dim sCompSize
3872 dpurdie 16 
Dim sIcon
17 
Dim parComparePvId
18 
Dim parCompare
19 
Dim sDiffStateIcon
20 
Dim sStyle
6376 dpurdie 21 
Dim sCompVerText
22 
Dim sVerText
3872 dpurdie 23 
'------------ Constants Declaration -----------
7249 dpurdie 24 
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='2' title='Updated'>"
25 
Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='2' title='Added'>"
26 
Const LIMG_REMOVED = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='2' title='Removed'>"
27 
Const LIMG_UNCHANGED = "<img src='images/i_unchanged.gif' width='11' height='11' border='0' hspace='5' title='Unchanged'>"
3872 dpurdie 28 
'------------ Variable Init -------------------
29 
parComparePvId = Request("compare_pv_id")
30 
parCompare = Request("compare")
31 
'----------------------------------------------
32 
If Request("btn") = "Compare" Then
6375 dpurdie 33 
    parCompare = "true"
3872 dpurdie 34 
End If
35 
'----------------------------------------------
36 
%>
6377 dpurdie 37 
<script type="text/javascript" charset="utf-8">
6378 dpurdie 38 
function openTableAll()
6377 dpurdie 39 
{
6378 dpurdie 40 
    $('#fileList tr').each(function(idx, item){
41 
        $(item).removeClass('display-none');
42 
        $(item).removeClass('tag-isHidden');
43 
    });
44 
    updateTableIcons();
45 
}
46 
 
47 
function closeTableAll()
48 
{
6427 dpurdie 49 
    $('#fileList tr').each(function(idx, item){
50 
        var tr = $(item);
51 
        if (tr.hasClass('tag-isDir')) {
52 
            tr.addClass('tag-isHidden');
53 
        }
54 
        var txt =  tr.data('path') || '';
55 
        if ( txt.indexOf("/") >= 0) {
56 
            tr.addClass('display-none');
6378 dpurdie 57 
        };
6377 dpurdie 58 
    });
6378 dpurdie 59 
    updateTableIcons();
6377 dpurdie 60 
}
61 
 
6378 dpurdie 62 
function updateTableIcons()
63 
{
6379 dpurdie 64 
    $("#fileList tr.tag-isDir").each(function(i, item) {
6378 dpurdie 65 
        var isHidden = $(item).hasClass('tag-isHidden');
66 
        updateImages(item, isHidden);
67 
    });
68 
}
69 
 
70 
function updateImages(el, isHidden) {
71 
    var images = $(el).find('img');
72 
    if ( isHidden ) {
73 
        $(images.get(0)).addClass('display-none');
74 
        $(images.get(1)).removeClass('display-none');
75 
    } else {
76 
        $(images.get(1)).addClass('display-none');
77 
        $(images.get(0)).removeClass('display-none');
78 
    }
79 
}
80 
 
81 
function tableToggleAll(el) {
6379 dpurdie 82 
    var mode =  $('#fileList').hasClass('tag-ALL');
83 
    if (mode) {
84 
        closeTableAll();
85 
    } else {
6378 dpurdie 86 
        openTableAll();
87 
    };
88 
    updateImages(el, !mode);
6379 dpurdie 89 
    $('#fileList').toggleClass('tag-ALL');
6378 dpurdie 90 
}
6379 dpurdie 91 
 
92 
$( document ).ready(function() {
93 
 
94 
    // Open / Close directory elements
6427 dpurdie 95 
    $('#fileList tr:not(:first-child) td:first-child').click(function() {
6379 dpurdie 96 
 
97 
       // Calculate the text name of the parent directory
98 
       var tr = $(this.closest('tr'));
6427 dpurdie 99 
       var dir =  tr.data('path') || '';
100 
       if ( ! tr.hasClass('tag-isDir') ) {
6379 dpurdie 101 
           dir=dir.replace(/\/[^\/]*$/,'');
102 
       }
103 
 
104 
       // Scan table:
105 
       //   Looking for directory element
106 
       //   Then show/hide elements
107 
       var isHidden = false;
108 
       var found = false;
6427 dpurdie 109 
       $('#fileList tr').each(function(idx, item){
110 
           var tr = $(item);
111 
           var txt =  tr.data('path') || '';
6379 dpurdie 112 
           if ( !found ) {
113 
               if ( txt.indexOf(dir) == 0 )
114 
               {
115 
                   isHidden = tr.hasClass('tag-isHidden');
116 
                   tr.toggleClass('tag-isHidden');
117 
                   found = true;
6428 dpurdie 118 
                   dir += '/';
6379 dpurdie 119 
               }
120 
           } else {
121 
               if ( txt.indexOf(dir)  < 0 ) return false;
122 
               if ( isHidden ) {
123 
                   tr.removeClass('display-none');
124 
               } else {
125 
                   tr.addClass('display-none');
126 
               };
127 
               if ( tr.hasClass('tag-isDir') ) {
128 
                   if ( isHidden ) {
129 
                       tr.removeClass('tag-isHidden');
130 
                   } else {
131 
                       tr.addClass('tag-isHidden');
132 
                   };
133 
               }
134 
           }
135 
        });
136 
 
137 
       updateTableIcons();
138 
    });
7249 dpurdie 139 
 
140 
    //
141 
    //  File Diff display
142 
    //  Wire up the Show/Hide options
143 
    //
144 
	$('#btnHideUpdate').change(function(){
145 
		toggleRows( $(this).is(':checked'), '.ftUpdated' );
146 
    });
147 
 
148 
    $('#btnHideAdded').change(function(){
149 
		toggleRows( $(this).is(':checked'), '.ftAdded' );
150 
    });
151 
 
152 
	$('#btnHideRemoved').change(function(){
153 
		toggleRows( $(this).is(':checked'), '.ftRemoved' );
154 
    });
155 
 
156 
	$('#btnHideSame').change(function(){
157 
		toggleRows( $(this).is(':checked'), '.ftSame' );
158 
    });
159 
 
160 
    function toggleRows( mode, sClass) {
161 
        if ( mode ) {
162 
            $('#fileList tr').filter(sClass).hide();
163 
        } else {
164 
            $('#fileList tr').filter(sClass).show();
165 
        }
166 
    }
167 
 
6379 dpurdie 168 
});
6377 dpurdie 169 
</script>
3872 dpurdie 170 
<%
171 
'--------------------------------------------------------------------------------------------------------------------------------------
172 
Sub DisplayMessage ()
6375 dpurdie 173 
    If (pkgInfoHash.Item ("dlocked") = "Y") Then
174 
        If (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") > 0) Then
175 
            Select Case CStr( pkgInfoHash.Item ("release_notes_info") )
176 
            Case enum_RELEASE_NOTES_GENERATING
177 
                Call DisplayInfo ( "GENERATING_RELEASE_NOTES", "400" )
178 
            Case enum_RELEASE_NOTES_NOT_FOUND_IN_ARCHIVE
179 
                Call DisplayInfo ( "NOT_FOUND_IN_PKG_ARCHIVE_FILE_GENERATE", "400" )
180 
            Case enum_RELEASE_NOTES_FAILED
181 
                Call DisplayInfo ( "FAILED_GENERATING_RELEASE_NOTES", "400" )
182 
            Case enum_RELEASE_NOTES_NO_PREVIOUS_VERSION
183 
                Call DisplayInfo ( "NO_PREVIOUS_VERSION_RELEASE_NOTES", "400" )
4705 dpurdie 184 
            Case enum_RELEASE_NOTES_PLACEHOLDER_PACKAGE
185 
                Call DisplayInfo ( "RELEASE_NOTES_PLACEHOLDER_PACKAGE", "400" )
6375 dpurdie 186 
            End Select
187 
 
188 
        ElseIf IsNull(pkgInfoHash.Item ("release_notes_info")) Then
189 
            Call DisplayInfo ( "GENERATING_RELEASE_NOTES", "400" )
190 
 
191 
        End If
192 
 
193 
    End If
3872 dpurdie 194 
End Sub
195 
'--------------------------------------------------------------------------------------------------------------------------------------
196 
Sub DisplayComparePvIdCombo()
6375 dpurdie 197 
    Dim rsQry, isOfficial
198 
 
6376 dpurdie 199 
    sVerText = pkgInfoHash.Item("pkg_version")
200 
    sCompVerText = ""
201 
 
6375 dpurdie 202 
    ' Define version to compare
203 
    If parComparePvId = "" Then
204 
        If NOT IsNull( pkgInfoHash.Item("last_pv_id") ) Then
205 
            parComparePvId = pkgInfoHash.Item("last_pv_id")
206 
        Else
207 
            parComparePvId = 0
208 
        End If
209 
 
210 
    End If
211 
 
212 
    OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER
213 
    OraDatabase.Parameters.Add "PKG_ID",        pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
214 
    OraDatabase.Parameters.Add "V_EXT",         EmptyToNull(pkgInfoHash.Item("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2
215 
 
216 
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0))
217 
 
218 
    Response.write "<option value=''></option>"
219 
 
3872 dpurdie 220 
    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
6375 dpurdie 221 
 
222 
        If rsQry("dlocked") = "Y" Then
223 
            isOfficial = "R&nbsp;"
224 
        Else
225 
            isOfficial = "&nbsp;&nbsp;&nbsp;&nbsp;"
226 
        End If
6376 dpurdie 227 
 
228 
        If rsQry("selected") <> "" Then
229 
            sCompVerText = rsQry("pkg_version")
230 
        End If
6375 dpurdie 231 
 
232 
        Response.write "<option value='"& rsQry("pv_id") &"' "& rsQry("selected") &" >"& isOfficial & rsQry("pkg_version") &"</option>"
233 
 
234 
        rsQry.MoveNext
3872 dpurdie 235 
    WEnd
6375 dpurdie 236 
 
237 
    ' Clean up
238 
    rsQry.Close()
239 
    Set rsQry = nothing
240 
 
241 
    OraDatabase.Parameters.Remove "COMPARE_PV_ID"
242 
    OraDatabase.Parameters.Remove "PKG_ID"
243 
    OraDatabase.Parameters.Remove "V_EXT"
244 
 
3872 dpurdie 245 
End Sub
246 
'--------------------------------------------------------------------------------------------------------------------------------------
7249 dpurdie 247 
Sub GetDiffStateIcon( nDiffState, outIcon, outStyle, outRowStyle )
6375 dpurdie 248 
    Select Case CInt( nDiffState )
249 
        Case enumDB_NUM_DIFF_UPDATED
250 
            outIcon  = LIMG_UPDATED
251 
            outStyle = "body_rowbold"
7249 dpurdie 252 
			outRowStyle = "ftUpdated"
6375 dpurdie 253 
 
254 
        Case enumDB_NUM_DIFF_REMOVED
255 
            outIcon = LIMG_REMOVED
256 
            outStyle = "body_rowthru"
7249 dpurdie 257 
			outRowStyle = "ftRemoved"
6375 dpurdie 258 
 
259 
        Case enumDB_NUM_DIFF_NEW
260 
            outIcon = LIMG_ADDED
261 
            outStyle = "body_rowbold"
7249 dpurdie 262 
			outRowStyle = "ftAdded"
6375 dpurdie 263 
 
264 
        Case Else
265 
            outIcon = ""
266 
            outStyle = "body_rowg"
7249 dpurdie 267 
			outRowStyle = "ftSame"
268 
 
6375 dpurdie 269 
    End Select
3872 dpurdie 270 
End Sub
271 
'--------------------------------------------------------------------------------------------------------------------------------------
272 
Sub DisplayDiffSummary( orsQry )
6375 dpurdie 273 
    Dim dDiffSummary
274 
    Set dDiffSummary = CreateObject("Scripting.Dictionary")
275 
 
276 
    dDiffSummary.Item ("UPDATED") = 0
277 
    dDiffSummary.Item ("REMOVED") = 0
278 
    dDiffSummary.Item ("ADDED") = 0
7249 dpurdie 279 
    dDiffSummary.Item ("SAME") = 0
6375 dpurdie 280 
 
281 
    While ((NOT orsQry.BOF) AND (NOT orsQry.EOF))
282 
 
283 
        Select Case CInt( orsQry("diff_state") )
284 
            Case enumDB_NUM_DIFF_UPDATED
285 
                dDiffSummary.Item ("UPDATED") = CInt( dDiffSummary.Item ("UPDATED") ) + 1
286 
 
287 
            Case enumDB_NUM_DIFF_REMOVED
288 
                dDiffSummary.Item ("REMOVED") = CInt( dDiffSummary.Item ("REMOVED") ) + 1
289 
 
290 
            Case enumDB_NUM_DIFF_NEW
291 
                dDiffSummary.Item ("ADDED") = CInt( dDiffSummary.Item ("ADDED") ) + 1
7249 dpurdie 292 
 
293 
            Case Else
294 
                dDiffSummary.Item ("SAME") = CInt( dDiffSummary.Item ("SAME") ) + 1
295 
 
6375 dpurdie 296 
        End Select
297 
 
298 
        orsQry.MoveNext
299 
    WEnd
300 
 
301 
 
302 
    ' Reset cursor
303 
    orsQry.MoveFirst()
304 
 
305 
 
306 
    ' Display Summary
7249 dpurdie 307 
    Response.write dDiffSummary.Item ("UPDATED") &" - "& LIMG_UPDATED   & "Updated, "
308 
    Response.write dDiffSummary.Item ("ADDED")   &" - "& LIMG_ADDED     & "Added, "
309 
    Response.write dDiffSummary.Item ("REMOVED") &" - "& LIMG_REMOVED   & "Removed, "
310 
    Response.write dDiffSummary.Item ("SAME")    &" - "& LIMG_UNCHANGED & "Unchanged"
3872 dpurdie 311 
End Sub
312 
'--------------------------------------------------------------------------------------------------------------------------------------
313 
%>
6375 dpurdie 314 
    <!-- DETAILS ------------------------------------------------->
315 
 
316 
    <%
317 
    ' -- Open Database connection
318 
 
6376 dpurdie 319 
    If parCompare <> "" Then
320 
        OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
321 
        OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER
6375 dpurdie 322 
 
6376 dpurdie 323 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponentDiff.sql"), cint(0))
324 
 
325 
        OraDatabase.Parameters.Remove "PV_ID"
326 
        OraDatabase.Parameters.Remove "COMPARE_PV_ID"
327 
 
6375 dpurdie 328 
    Else
6376 dpurdie 329 
        OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
6375 dpurdie 330 
 
6376 dpurdie 331 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponents.sql"), cint(0))
6375 dpurdie 332 
 
6376 dpurdie 333 
        OraDatabase.Parameters.Remove "PV_ID"
334 
 
6375 dpurdie 335 
    End If
6376 dpurdie 336 
      '
3872 dpurdie 337 
      ' If not called from a history tab then we display a dialog to allow comparison
338 
      ' with another version
339 
    %>
340 
    <%If pkgCompare Then %>
7292 dpurdie 341 
            <form name="formname" method="get" action="<%=ScriptName%>" onSubmit="showGlobalProgress();">
6375 dpurdie 342 
            <br>
6376 dpurdie 343 
            <%If rsQry.Recordcount > 0 Then%>
344 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
345 
              <tr>
7249 dpurdie 346 
				<td nowrap width=1% class="body_colb">Files and Folders</td>
347 
                <td nowrap width=1% class="body_txt">
348 
					<fieldset class="fset body_row">
349 
						<legend>Show differences since version</legend>
6376 dpurdie 350 
                    <select name="compare_pv_id" class="form_item">
351 
                    <%Call DisplayComparePvIdCombo()%>
352 
                    </select>
353 
                    <input name="btn" type="submit" class="form_btn" value="Compare">
354 
                    <%If parCompare <> "" Then%>
7249 dpurdie 355 
					<input type="checkbox" style='visibility:hidden'>
7292 dpurdie 356 
                    <a class="form_btn" onClick="showGlobalProgress();" href="<%=scriptName%>?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>">Show <%=sVerText%></a>
357 
                    <a class="form_btn" onClick="showGlobalProgress();" href="<%=scriptName%>?pv_id=<%=parComparePvId%>&rtag_id=<%=parRtag_id%>">Show <%=sCompVerText%></a>
7249 dpurdie 358 
					</fieldset>
359 
					</td>
360 
					<td width=1% nowrap class="body_txt">
361 
 
362 
					<fieldset class="fset body_row">
363 
						<legend>Hide / Show</legend>
364 
						<input type="checkbox" id='btnHideUpdate' ><%=LIMG_UPDATED%>Updated
365 
						<input type="checkbox" id='btnHideAdded'  ><%=LIMG_ADDED%>Added
366 
						<input type="checkbox" id='btnHideRemoved'><%=LIMG_REMOVED%>Removed
367 
						<input type="checkbox" id='btnHideSame'   ><%=LIMG_UNCHANGED%>Unchanged
368 
					</fieldset>
369 
 
6376 dpurdie 370 
                    <%End If%>
371 
                </td>
7249 dpurdie 372 
				<td></td>
373 
                <td nowrap width=1% class="body_txt" align="right">
6376 dpurdie 374 
                    <%If parCompare <> "" Then%>
7249 dpurdie 375 
					<fieldset class="fset body_row">
376 
						<legend>Summary</legend>
6376 dpurdie 377 
                        <%Call DisplayDiffSummary( rsQry ) %>
7249 dpurdie 378 
					</fieldset>
6376 dpurdie 379 
                    <%End If%>
380 
                </td>
381 
              </tr>
382 
            </table>
383 
            <hr size="1" noshade color="#999999">
7249 dpurdie 384 
		    <%Else%>
385 
				<span class="body_colb">Files and Folders</span><br>
386 
				<hr size="1" noshade color="#999999">
387 
				<span class="body_txt">No files recorded</span>
6376 dpurdie 388 
            <%End If%>
3872 dpurdie 389 
    <%End If%>
390 
 
391 
    <!-- MODULE COMPONENTS ++++++++++++++++++++++++++++++++++++++ -->
6375 dpurdie 392 
 
393 
 
394 
        <!-- ==================================================== -->
395 
        <!-- ===================  COMPARE ======================= -->
396 
        <!-- ==================================================== -->
397 
        <%If parCompare <> "" Then%>
398 
            <%If rsQry.Recordcount > 0 Then%>
399 
 
6377 dpurdie 400 
            <table id="fileList" width="100%"  border="0" cellspacing="1" cellpadding="3">
6376 dpurdie 401 
            <tr class="form_field_hdr">
402 
              <td width="1"   rowspan="2"></td>
403 
              <td width="60%" rowspan="2">Name</td>
404 
              <td width="20%" colspan="2" align="center"><%=sVerText%></td>
405 
              <td width="20%" colspan="2" align="center"><%=sCompVerText%></td>
6375 dpurdie 406 
            </tr>
6376 dpurdie 407 
            <tr class="form_field_hdr">
408 
              <td align="right">Byte Size</td>
409 
              <td align="right">CKSUM</td>
410 
              <td align="right">Byte Size</td>
411 
              <td align="right">CKSUM</td>
412 
            </tr>
6375 dpurdie 413 
            <%
414 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
6376 dpurdie 415 
                Dim sizeStyle : sizeStyle = ""
416 
                Dim sumStyle  : sumStyle = ""
417 
                Dim diffState : diffState = rsQry("diff_state")
6489 dpurdie 418 
                Dim sSum, sCompSum, filePath
7249 dpurdie 419 
                Dim sRowClass
6376 dpurdie 420 
                sSum = rsQry("crc_cksum")
421 
                sCompSum = rsQry("comp_crc_cksum")
422 
                sSize = rsQry("byte_size")
423 
                sCompSize = rsQry("comp_byte_size")
7249 dpurdie 424 
                Call GetDiffStateIcon( diffState, sDiffStateIcon, sStyle, sRowClass )
6489 dpurdie 425 
                filePath = rsQry("file_path")
426 
                If IsNull(filePath) Then filePath = ""
6375 dpurdie 427 
 
428 
                ' Find if this is file or folder
6489 dpurdie 429 
                If Len(filePath) > 0 AND Right(filePath,1) <> "/" Then
6375 dpurdie 430 
                    sSize = ""
431 
                    sCompSize = ""
6489 dpurdie 432 
                    sIcon = "<img src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle'>"
6375 dpurdie 433 
                Else
434 
                    sSize = rsQry("byte_size")
435 
                    sCompSize = rsQry("comp_byte_size")
436 
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
6376 dpurdie 437 
 
438 
                    If diffState > 1 OR (sSum <>  sCompSum) Then
439 
                        sumStyle = "err_dtl"
440 
                    End If
441 
 
442 
                    If diffState > 1 OR (sSize <> sCompSize) Then
443 
                        sizeStyle = "err_dtl"
444 
                    End If
445 
 
6375 dpurdie 446 
                End If
447 
 
448 
            %>
7249 dpurdie 449 
            <tr class="form_item_grey <%=sRowClass%>">
6376 dpurdie 450 
              <td nowrap ><%=sDiffStateIcon%></td>
451 
              <td nowrap class="<%=sStyle%>"><%=sIcon & rsQry("name")%></td>
452 
              <td nowrap class="<%=sizeStyle%>" align="right"><%=sSize%></td>
453 
              <td nowrap class="<%=sumStyle%>"  align="right"><%=sSum%></td>
454 
              <td nowrap class="<%=sizeStyle%>" align="right"><%=sCompSize%></td>
455 
              <td nowrap class="<%=sumStyle%>"  align="right"><%=sCompSum%></td>
6375 dpurdie 456 
            </tr>
457 
            <%
458 
                rsQry.MoveNext
459 
            WEnd
460 
 
461 
            rsQry.Close()
462 
            Set rsQry = nothing
463 
            %>
464 
            </table><br>
465 
 
466 
            <%End If%>
467 
        <%Else%>
468 
        <!-- ==================================================== -->
469 
        <!-- =================== NORMAL FILES =================== -->
470 
        <!-- ==================================================== -->
6376 dpurdie 471 
            <%If rsQry.Recordcount < 1 Then
472 
                ' No files found ...
473 
                Call DisplayMessage ()
474 
            Else
6375 dpurdie 475 
            %>
6790 dpurdie 476 
            <table id="fileList" width="100%"  border="0" cellspacing="1" cellpadding="3" class='StdGrey'>
477 
                <thead>
478 
                <tr>
479 
                  <th width="1%" onclick="tableToggleAll(this)">
480 
                        <img class='' src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle' title='Expand All'>
481 
                        <img class='display-none' src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle' title='Close all'>
482 
                  </th>
483 
                  <th width="25%" >Name</th>
484 
                  <th width="25%" align="right">Byte Size</th>
485 
                  <th width="25%" align="right">CKSUM</th>
486 
                  <th width="25%" align="right">MODCRC</th>
487 
                </tr>
488 
                </thead>
6375 dpurdie 489 
            <%
6378 dpurdie 490 
            Dim dClass, nextClass, altClass
491 
            Dim isHidden , bFirst
6489 dpurdie 492 
            Dim fileName
6378 dpurdie 493 
            Dim curDir, hiddenBase
6379 dpurdie 494 
            Dim knownDirs : knownDirs = Array ("lcov", "doc", "utfResults" )
495 
            Dim item
6427 dpurdie 496 
            Dim trAttr
6379 dpurdie 497 
 
6377 dpurdie 498 
            dClass = ""
499 
            isHidden = FALSE
500 
            curDir = ""
501 
 
502 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
503 
                    sLink = dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& Replace( rsQry("file_path") & rsQry("file_name"), "\", "/" )
504 
                    filePath = rsQry("file_path")
505 
                    If IsNull(filePath) Then filePath = ""
6427 dpurdie 506 
                    fileName = rsQry("file_name")
507 
                    trAttr = "data-path=""" & filePath & fileName & """"
6378 dpurdie 508 
 
509 
                    ' Determine if item is 'still' in hidden area
510 
                    If isHidden Then
511 
                        If InStr(filePath, hiddenBase) <> 1 Then
512 
                            isHidden = FALSE
513 
                        End If
514 
                    End If
6377 dpurdie 515 
 
516 
                    ' Find if this is file or folder
6480 dpurdie 517 
                    ' Note: Symlinks will have zero size and no sum
518 
                    '
519 
                    If Len(filePath) > 0 AND Right(filePath,1) <> "/" Then
6377 dpurdie 520 
                        ' Is a folder
6378 dpurdie 521 
                        curDir = filePath
6379 dpurdie 522 
                        sSize = ""
6378 dpurdie 523 
                        dClass = "tag-isDir"
524 
                         If NOT isHidden Then
525 
                             For Each item in knownDirs
526 
                                If filePath = item Then
527 
                                    isHidden = TRUE
6428 dpurdie 528 
                                    hiddenBase = filePath & "/"
6378 dpurdie 529 
                                    bFirst = TRUE
530 
                                    Exit For
531 
                                End If
532 
                            Next
533 
                         End If
6377 dpurdie 534 
 
535 
                        If isHidden Then
6378 dpurdie 536 
                            nextClass = "display-none"
537 
                            altClass = ""
538 
                        Else
539 
                            altClass = "display-none"
540 
                            nextClass = ""
6377 dpurdie 541 
                        End If
6378 dpurdie 542 
 
543 
                        sIcon         = "<img class='"&nextClass&"' src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle'>"
544 
                        sIcon = sIcon + "<img class='"&altClass&"' src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
6377 dpurdie 545 
                    Else
546 
                        ' Is a File
6378 dpurdie 547 
                        dClass = ""
548 
                        sSize = rsQry("byte_size")
549 
                        sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
6480 dpurdie 550 
 
6378 dpurdie 551 
                    End If
552 
 
553 
                    If bFirst Then
554 
                        bFirst = FALSE
555 
                        dClass = dClass & " tag-isHidden"
556 
                    Else
6377 dpurdie 557 
                        If isHidden Then
6378 dpurdie 558 
                            dClass = dClass & " display-none tag-isHidden"
6377 dpurdie 559 
                        End If
6378 dpurdie 560 
                    End If
6379 dpurdie 561 
                    %>
6790 dpurdie 562 
                    <tr class="<%=dClass%>" <%=trAttr%>>
6379 dpurdie 563 
                      <td nowrap ><%=sIcon%></td>
6427 dpurdie 564 
                      <td nowrap><a target="_blank" href="<%=sLink%>" class="body_txt_gray_link"><%=filePath & fileName%></a></td>
6379 dpurdie 565 
                      <td nowrap align="right"><%=sSize%></td>
566 
                      <td nowrap align="right"><%=rsQry("crc_cksum")%></td>
567 
                      <td nowrap align="right"><%=rsQry("crc_modcrc")%></td>
568 
                    </tr>
569 
                    <%
6375 dpurdie 570 
                rsQry.MoveNext
571 
            WEnd
572 
            rsQry.Close()
573 
            Set rsQry = nothing
574 
            %>
575 
            </table><br>
576 
 
577 
            <%End If%>
578 
        <!-- ==================================================== -->
579 
        <%End If%>
580 
 
3872 dpurdie 581 
    <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
582 
    <%If pkgCompare Then %>
6375 dpurdie 583 
        <input type="hidden" name="compare" value="<%=parCompare%>">
584 
        <input type="hidden" name="pv_id" value="<%=parPv_Id%>">
585 
        <input type="hidden" name="rtag_id" value="<%=parRtag_Id%>">
586 
        </form>
587 
    <%End If%>
3872 dpurdie 588