projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Set PHP's include path
[clearscm.git]
/
maps
/
lib
/
MAPSWeb.pm
diff --git
a/maps/lib/MAPSWeb.pm
b/maps/lib/MAPSWeb.pm
index
3389c6a
..
bea5eff
100644
(file)
--- a/
maps/lib/MAPSWeb.pm
+++ b/
maps/lib/MAPSWeb.pm
@@
-44,7
+44,7
@@
sub getquickstats(%) {
my $date = $params{date};
my $date = $params{date};
- for (@
MAPSLog::
Types) {
+ for (@Types) {
$dates{$date}{processed} += $dates{$date}{$_};
} # for
$dates{$date}{processed} += $dates{$date}{$_};
} # for
@@
-69,11
+69,15
@@
sub displayquickstats($) {
'Today\'s Activity';
print p {-align => 'center'},
b ('as of ' . FormatTime($time));
'Today\'s Activity';
print p {-align => 'center'},
b ('as of ' . FormatTime($time));
+
+ print start_div {-id => 'quickstats'};
+
print start_table {
print start_table {
- -align => 'center',
- -border => 0,
-cellspacing => 0,
-cellspacing => 0,
- -cellpadding => 2};
+ -border => 0,
+ -align => 'center',
+ -cellpadding => 2,
+ };
print start_Tr {-align => 'right'};
print
td {-class => 'smalllabel',
print start_Tr {-align => 'right'};
print
td {-class => 'smalllabel',
@@
-89,9
+93,10
@@
sub displayquickstats($) {
'n/a';
print end_Tr;
'n/a';
print end_Tr;
- for (@
MAPSLog::
Types) {
+ for (@Types) {
print start_Tr {-align => 'right'};
print start_Tr {-align => 'right'};
+ my $foo = $_;
my $value = $dates{$date}{$_};
my $percent;
my $value = $dates{$date}{$_};
my $percent;
@@
-105,13
+110,9
@@
sub displayquickstats($) {
my $report = ucfirst $_;
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;
td {-class => 'smallnumber'}, $value,
td {-class => 'smallnumber'}, $percent;
@@
-120,6
+121,7
@@
sub displayquickstats($) {
print end_table;
print end_div;
print end_table;
print end_div;
+ print end_div;
return;
} # displayquickstats
return;
} # displayquickstats
@@
-319,7
+321,7
@@
sub NavigationBar($) {
(a {-href => '/maps/doc/'},
'Help<br>'),
(a {-href => '/maps/adm/'},
(a {-href => '/maps/doc/'},
'Help<br>'),
(a {-href => '/maps/adm/'},
- '
MAPS
<br>'),
+ '
Admin
<br>'),
(a {-href => '/maps/?logout=yes'},
'Logout'),
);
(a {-href => '/maps/?logout=yes'},
'Logout'),
);