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