diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/Mason.pm | 2 | ||||
| -rw-r--r-- | FS/FS/Report/Table/Daily.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm index 63eb47cab..60b0b5fe0 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -55,7 +55,7 @@ if ( -e $addl_handler_use_file ) { #use CGI::Carp qw(fatalsToBrowser); use CGI::Cookie; - use List::Util qw( max min ); + use List::Util qw( max min sum ); use Data::Dumper; use Date::Format; use Time::Local; diff --git a/FS/FS/Report/Table/Daily.pm b/FS/FS/Report/Table/Daily.pm index 5bbd6e4e7..3b21fa800 100644 --- a/FS/FS/Report/Table/Daily.pm +++ b/FS/FS/Report/Table/Daily.pm @@ -58,7 +58,7 @@ sub data { my $sdate = timelocal(0,0,0,$sday,$smonth-1,$syear); my $edate = timelocal(0,0,0,$eday,$emonth-1,$eyear); - warn "daily range $sdate $edate\n"; + #warn "daily range $sdate $edate\n"; # XXX: use date_format config for the labels since we have day in the labels now? # XXX: leap seconds / DST @@ -66,7 +66,7 @@ sub data { my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($sdate); $mon++; $year += 1900; - warn "label=$mday/$mon/$year\n"; + #warn "label=$mday/$mon/$year\n"; push @{$data{label}}, "$mday/$mon/$year"; my $speriod = $sdate; |