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'),
);