Subversion Repositories DevTools

Rev

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

Rev 6480 Rev 6489
Line 354... Line 354...
354
            <%
354
            <%
355
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) 
355
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) 
356
                Dim sizeStyle : sizeStyle = ""
356
                Dim sizeStyle : sizeStyle = ""
357
                Dim sumStyle  : sumStyle = ""
357
                Dim sumStyle  : sumStyle = ""
358
                Dim diffState : diffState = rsQry("diff_state")
358
                Dim diffState : diffState = rsQry("diff_state")
359
                Dim sSum, sCompSum
359
                Dim sSum, sCompSum, filePath
360
                sSum = rsQry("crc_cksum")
360
                sSum = rsQry("crc_cksum")
361
                sCompSum = rsQry("comp_crc_cksum") 
361
                sCompSum = rsQry("comp_crc_cksum") 
362
                sSize = rsQry("byte_size")
362
                sSize = rsQry("byte_size")
363
                sCompSize = rsQry("comp_byte_size")
363
                sCompSize = rsQry("comp_byte_size")
364
                Call GetDiffStateIcon( diffState, sDiffStateIcon, sStyle )
364
                Call GetDiffStateIcon( diffState, sDiffStateIcon, sStyle )
-
 
365
                filePath = rsQry("file_path")
-
 
366
                If IsNull(filePath) Then filePath = ""
365
                            
367
                            
366
                ' Find if this is file or folder
368
                ' Find if this is file or folder
367
                If (IsNull(sSum) AND  (sSize = 0)) OR (IsNull(sCompSum) AND (sCompSize = 0)) Then 
369
                If Len(filePath) > 0 AND Right(filePath,1) <> "/" Then
368
                    sSize = ""
370
                    sSize = ""
369
                    sCompSize = ""
371
                    sCompSize = ""
370
                    sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
372
                    sIcon = "<img src='images/rex_images/_folderopen.gif' border='0' hspace='3' align='absmiddle'>"
371
                Else
373
                Else
372
                    sSize = rsQry("byte_size")
374
                    sSize = rsQry("byte_size")
373
                    sCompSize = rsQry("comp_byte_size")
375
                    sCompSize = rsQry("comp_byte_size")
374
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
376
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
375
 
377
 
Line 423... Line 425...
423
              <td width="25%" align="right">MODCRC</td>
425
              <td width="25%" align="right">MODCRC</td>
424
            </tr>
426
            </tr>
425
            <%
427
            <%
426
            Dim dClass, nextClass, altClass
428
            Dim dClass, nextClass, altClass
427
            Dim isHidden , bFirst
429
            Dim isHidden , bFirst
428
            Dim filePath, fileName
430
            Dim fileName
429
            Dim curDir, hiddenBase
431
            Dim curDir, hiddenBase
430
            Dim knownDirs : knownDirs = Array ("lcov", "doc", "utfResults" )
432
            Dim knownDirs : knownDirs = Array ("lcov", "doc", "utfResults" )
431
            Dim item
433
            Dim item
432
            Dim trAttr
434
            Dim trAttr
433
 
435