From f4510b0519d6bdea19056ba05a6ce2226c3ae22f Mon Sep 17 00:00:00 2001
From: szrj1m <szrj1m>
Date: Mon, 22 Aug 2005 02:26:36 +0000
Subject: [PATCH] Oops, adding CSV_XS module back.

---
 stats.print.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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