Subversion Repositories DevTools

Rev

Rev 6377 | Rev 6379 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6377 Rev 6378
Line 32... Line 32...
32 
    parCompare = "true"
 32 
    parCompare = "true"
33 
End If
 33 
End If
34 
'----------------------------------------------
 34 
'----------------------------------------------
35 
%>
 35 
%>
36 
<script type="text/javascript" charset="utf-8">
 36 
<script type="text/javascript" charset="utf-8">
37 
function toggleTag(tname)
 37 
function toggleTable(dir, el)
38 
{
 38 
{
- 
 
 39 
    $('html, body').css("cursor", "wait");
- 
 
 40 
 
- 
 
 41 
    var dirEl = $(el).closest('.tag-isDir');
- 
 
 42 
    var isHidden = dirEl.hasClass('tag-isHidden');
39 
    $( '.tag-' + tname ).toggleClass('display-none');
 43 
    //dirEl.find('img').toggleClass('display-none');
- 
 
 44 
    dirEl.toggleClass('tag-isHidden');
- 
 
 45
- 
 
 46 
    $('#fileList tr td:nth-child(2)').each(function(idx, item){
- 
 
 47 
        var txt =  item.innerText;
- 
 
 48 
        if ( txt.indexOf(dir) == 0 ) {
- 
 
 49 
            var tr = $(item.closest('tr'));
- 
 
 50 
            if ( isHidden ) {
- 
 
 51 
                tr.removeClass('display-none');
- 
 
 52 
            } else {
- 
 
 53 
                tr.addClass('display-none');
- 
 
 54 
            };
- 
 
 55 
            if ( tr.hasClass('tag-isDir') ) {
- 
 
 56 
                if ( isHidden ) {
- 
 
 57 
                    tr.removeClass('tag-isHidden');
- 
 
 58 
                } else {
- 
 
 59 
                    tr.addClass('tag-isHidden');
- 
 
 60 
                };
- 
 
 61 
 
- 
 
 62 
            }
- 
 
 63 
        };
- 
 
 64 
    });
- 
 
 65 
    updateTableIcons();
- 
 
 66 
    $('html, body').css("cursor", "default");
- 
 
 67 
}
- 
 
 68 
 
- 
 
 69 
function openTableAll()
- 
 
 70 
{
- 
 
 71 
    $('#fileList tr').each(function(idx, item){
- 
 
 72 
        $(item).removeClass('display-none');
- 
 
 73 
        $(item).removeClass('tag-isHidden');
- 
 
 74 
    });
- 
 
 75 
    updateTableIcons();
40 
}
 76 
}
41 
 
 77 
 
42 
function toggleTable(dir)
 78 
function closeTableAll()
43 
{
 79 
{
44 
    $('#fileList tr td:nth-child(2)').each(function(idx, item){
 80 
    $('#fileList tr td:nth-child(2)').each(function(idx, item){
45 
        var txt =  item.innerText;
 81 
        var txt =  item.innerText;
- 
 
 82 
        $(item.closest('tr')).addClass('tag-isHidden');
46 
        if ( txt.indexOf(dir) == 0 ) {
 83 
        if ( txt.indexOf("/") >= 0 ) {
47 
            $(item.closest('tr')).toggleClass('display-none');
84 
            $(item.closest('tr')).addClass('display-none');
48 
        }
 85 
        };
- 
 
 86 
    });
- 
 
 87 
    updateTableIcons();
- 
 
 88 
}
- 
 
 89 
 
- 
 
 90 
function updateTableIcons()
- 
 
 91 
{
- 
 
 92 
    $("#fileList tr.tag-isDir").each(function(i, item)
- 
 
 93 
    {
- 
 
 94 
        var isHidden = $(item).hasClass('tag-isHidden');
- 
 
 95 
        updateImages(item, isHidden);
49 
    });
 96 
    });
50 
}
 97 
}
51 
 
 98 
 
- 
 
 99 
function updateImages(el, isHidden) {
- 
 
 100 
    var images = $(el).find('img');
- 
 
 101 
    if ( isHidden ) {
- 
 
 102 
        $(images.get(0)).addClass('display-none');
- 
 
 103 
        $(images.get(1)).removeClass('display-none');
- 
 
 104 
    } else {
- 
 
 105 
        $(images.get(1)).addClass('display-none');
- 
 
 106 
        $(images.get(0)).removeClass('display-none');
- 
 
 107 
    }
- 
 
 108 
}
- 
 
 109 
 
- 
 
 110 
function tableToggleAll(el) {
- 
 
 111 
    var mode =  $(el).hasClass('tag-hideAll');
- 
 
 112 
    if (mode ) {
- 
 
 113 
        openTableAll();
- 
 
 114 
    } else {
- 
 
 115 
        closeTableAll();
- 
 
 116 
    };
- 
 
 117 
    updateImages(el, !mode);
- 
 
 118 
    $(el).toggleClass('tag-hideAll');
- 
 
 119 
}
52 
</script>
 120 
</script>
53 
<%
 121 
<%
54 
'--------------------------------------------------------------------------------------------------------------------------------------
 122 
'--------------------------------------------------------------------------------------------------------------------------------------
55 
Sub DisplayMessage ()
 123 
Sub DisplayMessage ()
56 
    If (pkgInfoHash.Item ("dlocked") = "Y") Then
 124 
    If (pkgInfoHash.Item ("dlocked") = "Y") Then
Line 324... Line 392...
324 
                Call DisplayMessage ()
 392 
                Call DisplayMessage ()
325 
            Else
 393 
            Else
326 
            %>
 394 
            %>
327 
            <table id="fileList" width="100%"  border="0" cellspacing="1" cellpadding="3">
 395 
            <table id="fileList" width="100%"  border="0" cellspacing="1" cellpadding="3">
328 
            <tr class="form_field_hdr">
 396 
            <tr class="form_field_hdr">
329 
              <td width="1%" >&nbsp;</td>
 397 
              <td width="1%" onclick="tableToggleAll(this)">
- 
 
 398 
                    <img class='' src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle' title='Close all'>
- 
 
 399 
                    <img class='display-none' src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle' title='Expand All'>
- 
 
 400 
              </td>
330 
              <td width="25%" >Name</td>
 401 
              <td width="25%" >Name</td>
331 
              <td width="25%" align="right">Byte Size</td>
 402 
              <td width="25%" align="right">Byte Size</td>
332 
              <td width="25%" align="right">CKSUM</td>
 403 
              <td width="25%" align="right">CKSUM</td>
333 
              <td width="25%" align="right">MODCRC</td>
 404 
              <td width="25%" align="right">MODCRC</td>
334 
            </tr>
 405 
            </tr>
335 
            <%
 406 
            <%
336 
            Dim dClass, nextClass
 407 
            Dim dClass, nextClass, altClass
337 
            Dim isHidden
 408 
            Dim isHidden , bFirst
338 
            Dim filePath
 409 
            Dim filePath
339 
            Dim tag
 410 
            Dim tag
340 
            Dim curDir
 411 
            Dim curDir, hiddenBase
341 
            Dim sClick
 412 
            Dim sClick
342 
            dClass = ""
 413 
            dClass = ""
343 
            nextClass = ""
 414 
            nextClass = ""
344 
            isHidden = FALSE
 415 
            isHidden = FALSE
345 
            curDir = ""
 416 
            curDir = ""
346 
            sClick =  ""
 417 
            sClick =  ""
347 
 
 418 
 
348 
            Dim knownDirs : knownDirs = Array ("lcov", "doc", "utfResults", "etc" )
 419 
            Dim knownDirs : knownDirs = Array ("lcov", "doc", "utfResults" )
349 
            Dim item
 420 
            Dim item
350 
 
 421 
 
351 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 422 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
352 
                    sLink = dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& Replace( rsQry("file_path") & rsQry("file_name"), "\", "/" )
 423 
                    sLink = dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& Replace( rsQry("file_path") & rsQry("file_name"), "\", "/" )
353 
                    filePath = rsQry("file_path")
 424 
                    filePath = rsQry("file_path")
354 
                    If IsNull(filePath) Then filePath = ""
 425 
                    If IsNull(filePath) Then filePath = ""
- 
 
 426 
 
- 
 
 427 
                    ' Determine if item is 'still' in hidden area
- 
 
 428 
                    If isHidden Then
- 
 
 429 
                        If InStr(filePath, hiddenBase) <> 1 Then
- 
 
 430 
                            isHidden = FALSE
- 
 
 431 
                        End If
- 
 
 432 
                    End If
355
433
356 
                    ' Find if this is file or folder
 434 
                    ' Find if this is file or folder
357 
                    If IsNull( rsQry("crc_cksum") )  AND  (rsQry("byte_size") = 0) Then
 435 
                    If IsNull( rsQry("crc_cksum") )  AND  (rsQry("byte_size") = 0) Then
358 
                        ' Is a folder
 436 
                        ' Is a folder
359 
                        ' Should it be a hidden folder
 437 
                        curDir = filePath
360 
                        isHidden = FALSE
 438 
                        dClass = "tag-isDir"
361 
                        tag = ""
 439 
                         If NOT isHidden Then
362 
                        For Each item in knownDirs
 440 
                             For Each item in knownDirs
363 
                            If filePath = item Then
 441 
                                If filePath = item Then
364 
                                isHidden = TRUE
 442 
                                    isHidden = TRUE
365 
                                tag = item
 443 
                                    hiddenBase = filePath
366 
                                curDir = item
 444 
                                    bFirst = TRUE
367 
                                sClick =  "onclick=toggleTag('"& tag & "');"
 445 
                                    Exit For
368 
                                Exit For
 446 
                                End If
369 
                            End If
 447 
                            Next
370 
                        Next
 448 
                         End If
371 
 
 449 
 
372 
                        sSize = ""
 - 
 
373 
                        sIcon = "<img src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle'>"
 - 
 
374 
                        If isHidden Then
 450 
                        If isHidden Then
375 
                            nextClass = "display-none tag-" & tag
 451 
                            nextClass = "display-none"
376 
                            dClass = ""
 452 
                            altClass = ""
- 
 
 453 
                        Else
377 
                            sIcon = "<img class='tag-"&tag&" display-none' src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle'>"
 454 
                            altClass = "display-none"
378 
                            sIcon = sIcon + "<img class='tag-"&tag&"' src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
 455 
                            nextClass = ""
379 
                        End If
 456 
                        End If
- 
 
 457 
 
- 
 
 458 
                        sIcon         = "<img class='"&nextClass&"' src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle'>"
- 
 
 459 
                        sIcon = sIcon + "<img class='"&altClass&"' src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
380 
                    Else
 460 
                    Else
381 
                        ' Is a File
 461 
                        ' Is a File
382 
                        '
 - 
 
383 
                        ' We still in directory start with known tag
 - 
 
384 
                        '
 - 
 
385 
                        If isHidden Then
 - 
 
386 
                            If (InStr( filePath, curDir & "/" ) <> 1) Then
 - 
 
387 
                                isHidden = FALSE
 - 
 
388 
                                tag = ""
 - 
 
389 
                                nextClass = ""
 - 
 
390 
                                dClass = ""
 462 
                        dClass = ""
391 
                                curDir = ""
 - 
 
392 
                                sClick = ""
 - 
 
393 
                            End If
 - 
 
394 
                        End If
 - 
 
395 
 
 - 
 
396 
                        sSize = rsQry("byte_size")
 463 
                        sSize = rsQry("byte_size")
397 
                        sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
 464 
                        sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
398 
                    End If
 465 
                    End If
- 
 
 466 
 
- 
 
 467 
                    If bFirst Then
- 
 
 468 
                        bFirst = FALSE
- 
 
 469 
                        dClass = dClass & " tag-isHidden"
- 
 
 470 
                    Else
- 
 
 471 
                        If isHidden Then
- 
 
 472 
                            dClass = dClass & " display-none tag-isHidden"
- 
 
 473 
                        End If
- 
 
 474 
                    End If
- 
 
 475 
 
- 
 
 476 
                    sClick =  "onclick=""toggleTable('"& curDir & "/', this);"""
399
477
400 
                %>
 478 
                %>
401 
                <tr class="<%=dClass%> form_field_grey_bg body_txt_gray">
 479 
                <tr class="<%=dClass%> form_field_grey_bg body_txt_gray">
402 
                  <td nowrap <%=sClick%>><%=sIcon%></td>
 480 
                  <td nowrap <%=sClick%>><%=sIcon%></td>
403 
                  <td nowrap><a target="_blank" href="<%=sLink%>" class="body_txt_gray_link"><%=filePath & rsQry("file_name")%></a></td>
 481 
                  <td nowrap><a target="_blank" href="<%=sLink%>" class="body_txt_gray_link"><%=filePath & rsQry("file_name")%></a></td>
404 
                  <td nowrap align="right"><%=sSize%></td>
 482 
                  <td nowrap align="right"><%=sSize%></td>
405 
                  <td nowrap align="right"><%=rsQry("crc_cksum")%></td>
 483 
                  <td nowrap align="right"><%=rsQry("crc_cksum")%></td>
406 
                  <td nowrap align="right"><%=rsQry("crc_modcrc")%></td>
 484 
                  <td nowrap align="right"><%=rsQry("crc_modcrc")%></td>
407 
                </tr>
 485 
                </tr>
408 
                <%
 486 
                <%
409 
                dClass = nextClass
 - 
 
410 
                rsQry.MoveNext
 487 
                rsQry.MoveNext
411 
            WEnd
 488 
            WEnd
412 
            rsQry.Close()
 489 
            rsQry.Close()
413 
            Set rsQry = nothing
 490 
            Set rsQry = nothing
414 
            %>
 491 
            %>