Oops, adding CSV_XS module back.

diff --git a/stats.print.pl b/stats.print.pl
index b9fc52e..ceba030 100755 (executable)
--- a/stats.print.pl
+++ b/stats.print.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl\r
 \r
 \r
-#use strict;\r
+use strict;\r
 use CGI;\r
 use C4::Output;\r
 use HTML::Template;\r
@@ -11,11 +11,11 @@ use C4::Context;
 use Date::Manip;\r
 use C4::Stats;\r
 \r
-\r
-\r
 my $input=new CGI;\r
+my $time=$input->param('time');\r
 \r
-\r
+my @loop1;\r
+my @loop2;\r
 my $date;\r
 my $date2;\r
 if ($time eq 'yesterday'){\r
@@ -132,7 +132,7 @@ print "Branch, Datetime, Surame, Firstnames, Description, Type, Invoice amount,
 \r
 for my $row ( @loop1 ) {\r
 \r
-    $csv->combine(@$row);\r
+    my $csv->combine(@$row);\r
     my $string = $csv->string;\r
     print $string, "\n";\r
 }\r
@@ -141,7 +141,7 @@ print ",,,,,,,\n";
 \r
 for my $row ( @loop2 ) {\r
 \r
-    $csv->combine(@$row);\r
+    my $csv->combine(@$row);\r
     my $string = $csv->string;\r
     print $string, "\n";\r
 }\r