X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Flib%2FMAPSWeb.pm;h=bea5eff621b1fa0052d3dde7776bb90206048901;hb=bd6ea31741c339e295df02884dbdb6801cda49c1;hp=3389c6a7bde03b285108d22201fae8f033a879ee;hpb=8d6e59ba7728e19d42da1533b9f24d0216867899;p=clearscm.git diff --git a/maps/lib/MAPSWeb.pm b/maps/lib/MAPSWeb.pm index 3389c6a..bea5eff 100644 --- a/maps/lib/MAPSWeb.pm +++ b/maps/lib/MAPSWeb.pm @@ -44,7 +44,7 @@ sub getquickstats(%) { my $date = $params{date}; - for (@MAPSLog::Types) { + for (@Types) { $dates{$date}{processed} += $dates{$date}{$_}; } # for @@ -69,11 +69,15 @@ sub displayquickstats($) { 'Today\'s Activity'; print p {-align => 'center'}, b ('as of ' . FormatTime($time)); + + print start_div {-id => 'quickstats'}; + print start_table { - -align => 'center', - -border => 0, -cellspacing => 0, - -cellpadding => 2}; + -border => 0, + -align => 'center', + -cellpadding => 2, + }; print start_Tr {-align => 'right'}; print td {-class => 'smalllabel', @@ -89,9 +93,10 @@ sub displayquickstats($) { 'n/a'; print end_Tr; - for (@MAPSLog::Types) { + for (@Types) { print start_Tr {-align => 'right'}; + my $foo = $_; my $value = $dates{$date}{$_}; my $percent; @@ -105,13 +110,9 @@ sub displayquickstats($) { my $report = ucfirst $_; - if ($value) { - $report = a {-href => "detail.cgi?type=$_;date=$date"}, $report; - $value = a {-href => "detail.cgi?type=$_;date=$date"}, $value; - $percent = a {-href => "detail.cgi?type=$_;date=$date"}, $percent; - } # if + $report = a {-href => "detail.cgi?type=$_;date=$date"}, $report if $value; - print td {-class => 'smalllabel'}, $report, + print td {-class => 'link'}, $report, td {-class => 'smallnumber'}, $value, td {-class => 'smallnumber'}, $percent; @@ -120,6 +121,7 @@ sub displayquickstats($) { print end_table; print end_div; + print end_div; return; } # displayquickstats @@ -319,7 +321,7 @@ sub NavigationBar($) { (a {-href => '/maps/doc/'}, 'Help
'), (a {-href => '/maps/adm/'}, - 'MAPS
'), + 'Admin
'), (a {-href => '/maps/?logout=yes'}, 'Logout'), );