X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fstats.cgi;h=4b3cdfb1040ae62bd0b039a26679337c567f33a1;hb=8d6e59ba7728e19d42da1533b9f24d0216867899;hp=b68a5dd741bf05be5790ae879fc0eaacd2a62772;hpb=16babf81ce331af378de565ba73e927ff5491f65;p=clearscm.git

diff --git a/maps/bin/stats.cgi b/maps/bin/stats.cgi
index b68a5dd..4b3cdfb 100755
--- a/maps/bin/stats.cgi
+++ b/maps/bin/stats.cgi
@@ -17,14 +17,16 @@ use strict;
 use warnings;
 
 use FindBin;
-$0 = $FindBin::Script;
+
+local $0 = $FindBin::Script;
 
 use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use MAPS;
 use MAPSLog;
-use MAPSUtil;
 use MAPSWeb;
+use DateUtils;
 
 use CGI qw (:standard *table start_Tr end_Tr);
 use CGI::Carp 'fatalsToBrowser';
@@ -36,7 +38,9 @@ my $table_name = 'stats';
 
 $date = defined $date ? $date : Today2SQLDatetime;
 
-sub Body {
+sub Body($) {
+  my ($userid) = @_;
+
   print start_table ({-align       => 'center',
                       -id          => $table_name,
                       -border      => 0,
@@ -53,13 +57,17 @@ sub Body {
 
   print th {-class => 'tablerightend'}, 'Total';
 
-  my %dates = GetStats($nbr_days, $date);
+  my %dates = GetStats(
+    userid => $userid,
+    days   => $nbr_days,
+    date   => $date
+  );
   my %totals;
 
   for my $date (sort {$b cmp $a} (keys (%dates))) {
     print start_Tr;
     print td {-class => 'tablerightleftdata',
-              -align => 'center'}, FormatDate $date;
+              -align => 'center'}, FormatDate $date, 1;
 
     my $day_total = 0;
 
@@ -90,11 +98,11 @@ sub Body {
   my $grand_total = 0;
 
   print start_Tr;
-  print th {-class	=> 'tablebottomlefttotal'}, 'Totals';
+  print th {-class => 'tablebottomlefttotal'}, 'Totals';
 
   for (@Types) {
-    if ($totals{$_} eq 0) {
-      print td {-class	=> 'tablebottomtotal'}, ' ';
+    if ($totals{$_} == 0) {
+      print td {-class => 'tablebottomtotal'}, ' ';
     } else {
       print td {-class => 'tablebottomtotal',
                 -align => 'center'},
@@ -109,6 +117,8 @@ sub Body {
 
   print end_Tr;
   print end_table;
+
+  return;
 } # Body
 
 # Main
@@ -121,16 +131,18 @@ my $userid = Heading (
   $table_name
 );
 
+$userid //= $ENV{USER};
+
 SetContext($userid);
 
-if (!$nbr_days) {
+unless ($nbr_days) {
   my %options = GetUserOptions $userid;
   $nbr_days = $options{Dates};
-} # if
+} # unless
 
 NavigationBar($userid);
 
-Body;
+Body($userid);
 
 Footing($table_name);