diff options
author | Mark Wells <mark@freeside.biz> | 2012-03-05 19:31:01 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2012-03-05 19:31:01 -0800 |
commit | 01ea05e688db67a832764bae7356fe460e314ec7 (patch) | |
tree | 4a7da9d63519e4c8eed65557609cbf18191c3e67 /FS/FS | |
parent | 1fc6e684436955f6980dd8d9129f6a95d5af595e (diff) |
printer-friendly daily sales report, #16533
Diffstat (limited to 'FS/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; |