Subversion Repositories DevTools

Rev

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

Rev 6376 Rev 6377
Line 31... Line 31...
31 
If Request("btn") = "Compare" Then
 31 
If Request("btn") = "Compare" Then
32 
    parCompare = "true"
 32 
    parCompare = "true"
33 
End If
 33 
End If
34 
'----------------------------------------------
 34 
'----------------------------------------------
35 
%>
 35 
%>
- 
 
 36 
<script type="text/javascript" charset="utf-8">
- 
 
 37 
function toggleTag(tname)
- 
 
 38 
{
- 
 
 39 
    $( '.tag-' + tname ).toggleClass('display-none');
- 
 
 40 
}
- 
 
 41 
 
- 
 
 42 
function toggleTable(dir)
- 
 
 43 
{
- 
 
 44 
    $('#fileList tr td:nth-child(2)').each(function(idx, item){
- 
 
 45 
        var txt =  item.innerText;
- 
 
 46 
        if ( txt.indexOf(dir) == 0 ) {
- 
 
 47 
            $(item.closest('tr')).toggleClass('display-none');
- 
 
 48 
        }
- 
 
 49 
    });
- 
 
 50 
}
- 
 
 51 
 
- 
 
 52 
</script>
36 
<%
 53 
<%
37 
'--------------------------------------------------------------------------------------------------------------------------------------
 54 
'--------------------------------------------------------------------------------------------------------------------------------------
38 
Sub DisplayMessage ()
 55 
Sub DisplayMessage ()
39 
    If (pkgInfoHash.Item ("dlocked") = "Y") Then
 56 
    If (pkgInfoHash.Item ("dlocked") = "Y") Then
40 
        If (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") > 0) Then
57 
        If (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") > 0) Then
Line 232... Line 249...
232 
        <!-- ===================  COMPARE ======================= -->
 249 
        <!-- ===================  COMPARE ======================= -->
233 
        <!-- ==================================================== -->
 250 
        <!-- ==================================================== -->
234 
        <%If parCompare <> "" Then%>
 251 
        <%If parCompare <> "" Then%>
235 
            <%If rsQry.Recordcount > 0 Then%>
 252 
            <%If rsQry.Recordcount > 0 Then%>
236
253
237 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 254 
            <table id="fileList" width="100%"  border="0" cellspacing="1" cellpadding="3">
238 
            <tr class="form_field_hdr">
 255 
            <tr class="form_field_hdr">
239 
              <td width="1"   rowspan="2"></td>
 256 
              <td width="1"   rowspan="2"></td>
240 
              <td width="60%" rowspan="2">Name</td>
 257 
              <td width="60%" rowspan="2">Name</td>
241 
              <td width="20%" colspan="2" align="center"><%=sVerText%></td>
 258 
              <td width="20%" colspan="2" align="center"><%=sVerText%></td>
242 
              <td width="20%" colspan="2" align="center"><%=sCompVerText%></td>
 259 
              <td width="20%" colspan="2" align="center"><%=sCompVerText%></td>
Line 305... Line 322...
305 
            <%If rsQry.Recordcount < 1 Then
 322 
            <%If rsQry.Recordcount < 1 Then
306 
                ' No files found ...
 323 
                ' No files found ...
307 
                Call DisplayMessage ()
 324 
                Call DisplayMessage ()
308 
            Else
 325 
            Else
309 
            %>
 326 
            %>
310 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 327 
            <table id="fileList" width="100%"  border="0" cellspacing="1" cellpadding="3">
311 
            <tr class="form_field_hdr">
 328 
            <tr class="form_field_hdr">
- 
 
 329 
              <td width="1%" >&nbsp;</td>
312 
              <td width="25%" >Name</td>
 330 
              <td width="25%" >Name</td>
313 
              <td width="25%" align="right">Byte Size</td>
 331 
              <td width="25%" align="right">Byte Size</td>
314 
              <td width="25%" align="right">CKSUM</td>
 332 
              <td width="25%" align="right">CKSUM</td>
315 
              <td width="25%" align="right">MODCRC</td>
 333 
              <td width="25%" align="right">MODCRC</td>
316 
            </tr>
 334 
            </tr>
317 
            <%
 335 
            <%
- 
 
 336 
            Dim dClass, nextClass
- 
 
 337 
            Dim isHidden
- 
 
 338 
            Dim filePath
318 
            Dim uRL
 339 
            Dim tag
- 
 
 340 
            Dim curDir
- 
 
 341 
            Dim sClick
- 
 
 342 
            dClass = ""
- 
 
 343 
            nextClass = ""
- 
 
 344 
            isHidden = FALSE
- 
 
 345 
            curDir = ""
- 
 
 346 
            sClick =  ""
- 
 
 347 
 
- 
 
 348 
            Dim knownDirs : knownDirs = Array ("lcov", "doc", "utfResults", "etc" )
- 
 
 349 
            Dim item
- 
 
 350 
 
319 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
351 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
320 
                sLink = dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& Replace( rsQry("file_path") & rsQry("file_name"), "\", "/" )
 352 
                    sLink = dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& Replace( rsQry("file_path") & rsQry("file_name"), "\", "/" )
- 
 
 353 
                    filePath = rsQry("file_path")
- 
 
 354 
                    If IsNull(filePath) Then filePath = ""
321
355
322 
                ' Find if this is file or folder
 356 
                    ' Find if this is file or folder
323 
                If IsNull( rsQry("crc_cksum") )  AND  (rsQry("byte_size") = 0) Then
357 
                    If IsNull( rsQry("crc_cksum") )  AND  (rsQry("byte_size") = 0) Then
- 
 
 358 
                        ' Is a folder
- 
 
 359 
                        ' Should it be a hidden folder
- 
 
 360 
                        isHidden = FALSE
- 
 
 361 
                        tag = ""
- 
 
 362 
                        For Each item in knownDirs
- 
 
 363 
                            If filePath = item Then
- 
 
 364 
                                isHidden = TRUE
- 
 
 365 
                                tag = item
- 
 
 366 
                                curDir = item
- 
 
 367 
                                sClick =  "onclick=toggleTag('"& tag & "');"
- 
 
 368 
                                Exit For
- 
 
 369 
                            End If
- 
 
 370 
                        Next
- 
 
 371 
 
324 
                    sSize = ""
 372 
                        sSize = ""
325 
                    sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
 373 
                        sIcon = "<img src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle'>"
- 
 
 374 
                        If isHidden Then
- 
 
 375 
                            nextClass = "display-none tag-" & tag
- 
 
 376 
                            dClass = ""
- 
 
 377 
                            sIcon = "<img class='tag-"&tag&" display-none' src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle'>"
- 
 
 378 
                            sIcon = sIcon + "<img class='tag-"&tag&"' src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
- 
 
 379 
                        End If
326 
                Else
 380 
                    Else
- 
 
 381 
                        ' 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 = ""
- 
 
 391 
                                curDir = ""
- 
 
 392 
                                sClick = ""
- 
 
 393 
                            End If
- 
 
 394 
                        End If
- 
 
 395 
 
327 
                    sSize = rsQry("byte_size")
 396 
                        sSize = rsQry("byte_size")
328 
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
 397 
                        sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
329 
                End If
 398 
                    End If
330
399
331 
            %>
 400 
                %>
332 
            <tr class="form_field_grey_bg body_txt_gray">
 401 
                <tr class="<%=dClass%> form_field_grey_bg body_txt_gray">
- 
 
 402 
                  <td nowrap <%=sClick%>><%=sIcon%></td>
333 
              <td nowrap><a target="_blank" href="<%=sLink%>" class="body_txt_gray_link"><%=sIcon & rsQry("file_path") & rsQry("file_name")%></a></td>
 403 
                  <td nowrap><a target="_blank" href="<%=sLink%>" class="body_txt_gray_link"><%=filePath & rsQry("file_name")%></a></td>
334 
              <td nowrap align="right"><%=sSize%></td>
 404 
                  <td nowrap align="right"><%=sSize%></td>
335 
              <td nowrap align="right"><%=rsQry("crc_cksum")%></td>
 405 
                  <td nowrap align="right"><%=rsQry("crc_cksum")%></td>
336 
              <td nowrap align="right"><%=rsQry("crc_modcrc")%></td>
 406 
                  <td nowrap align="right"><%=rsQry("crc_modcrc")%></td>
337 
            </tr>
 407 
                </tr>
338 
            <%
 408 
                <%
- 
 
 409 
                dClass = nextClass
339 
                rsQry.MoveNext
 410 
                rsQry.MoveNext
340 
            WEnd
 411 
            WEnd
341 
            rsQry.Close()
 412 
            rsQry.Close()
342 
            Set rsQry = nothing
 413 
            Set rsQry = nothing
343 
            %>
 414 
            %>