Documentation Source Text

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes to misc/dashboard.tcl.

     1         -#!/home/drh/bin/wapptclsh
            1  +#!/usr/bin/wapptclsh
     2      2   #
     3      3   package require wapp
     4      4   if {![info exists env(FOSSIL_URI)]} {
     5      5     error "This script must be run as a Fossil CGI extension"
     6      6   }
     7      7   proc open-database {} {
     8      8     set self [wapp-param SCRIPT_FILENAME]
................................................................................
    79     79     set cnt [db one {SELECT count(*) FROM outcome}]
    80     80     common-header "Test Outcomes" olist
    81     81     wapp-subst {<ul>\n}
    82     82     set last_srchash {}
    83     83     set inner_close {}
    84     84     db eval {SELECT status, testName, platform.name AS pname, srchash, srcdate,
    85     85                     datetime(srcdate) AS sdate,
    86         -                  datetime(max(outcome.mtime),'unixepoch') AS odate
           86  +                  datetime(max(outcome.mtime),'unixepoch') AS odate, report
    87     87                FROM outcome, platform
    88     88               WHERE outcome.mtime>CAST(strftime('%s','now','-1 month') AS INT)
    89     89                 AND platform.platformId=outcome.platformId
    90     90               GROUP BY testName, srchash
    91     91               ORDER BY srcdate DESC, outcome.mtime DESC, status DESC} {
    92     92        if {$srchash!=$last_srchash} {
    93     93          wapp-trim {
................................................................................
   104    104          fail {set clr red}
   105    105          running {set clr gray}
   106    106          ok -
   107    107          pass {set clr green}
   108    108        }
   109    109        wapp-trim {
   110    110          <li><span style='color:%html($clr);'>
   111         -       %html($status - $testName at $pname on $odate)</span></li>
          111  +       <b>%html($status)</b> - %html($testName at $pname)
          112  +       <small>(%html($odate))
          113  +     }
          114  +     if {[string length $report]} {
          115  +       wapp-trim {- %html($report)}
   112    116        }
          117  +     wapp-trim {</small></span></li>}
   113    118     }
   114    119     wapp-trim {
   115    120       %unsafe($inner_close)
   116    121       </ul>
   117    122     }
   118    123     wapp-trim {
   119    124       <script nonce='%html([wapp-param FOSSIL_NONCE])'>