Bug 6934: fix errors pointed out by the QA script

[koha.git] / reports / cash_register_stats.pl

diff --git a/reports/cash_register_stats.pl b/reports/cash_register_stats.pl
index 2384ae3..ac5ea90 100755 (executable)
--- a/reports/cash_register_stats.pl
+++ b/reports/cash_register_stats.pl
@@ -25,8 +25,6 @@ use C4::Circulation;
 use DateTime;
 use Koha::DateUtils;
 use Text::CSV::Encoded;
-#use Data::Dumper;
-#use Smart::Comments;
 
 my $input            = new CGI;
 my $dbh              = C4::Context->dbh;
@@ -139,64 +137,38 @@ if ($do_it) {
             total => $grantotal,
         );
     } else{
-        binmode STDOUT, ':encoding(UTF-8)';
-        my $q_errors;
         my $format = 'csv';
         my $reportname = $input->param('basename');
         my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ;
         #my $reportfilename = "$reportname.html" ;
         my $delimiter = C4::Context->preference('delimiter') || ',';
-        my ( $type, $content );
-        if ( $format eq 'csv' ) {
-            my $type = 'application/csv';
-            my $csv = Text::CSV::Encoded->new({ encoding_out => 'UTF-8', sep_char => $delimiter});
-            $csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag();
-            my @headers = ();
-            push @headers, "mfirstname",
-                                   "cardnumber",
-                                   "bfirstname",
-                                   "branchname",
-                                   "date",
-                                   "accounttype",
-                                   "amount",
-                                   "title",
-                                   "barcode",
-                                   "itype";
-            if ($csv->combine(@headers)) {
-                $content .= Encode::decode('UTF-8', $csv->string()) . "\n";
-            } else {
-                push @$q_errors, { combine => 'HEADER ROW: ' . $csv->error_diag() } ;
-            }
+            my @rows;
             foreach my $row (@loopresult) {
-                               my @rowValues = ();
+                my @rowValues;
                 push @rowValues, $row->{mfirstname},
                         $row->{cardnumber},
-                                               $row->{bfirstname},
-                                               $row->{branchname},
-                                               $row->{date},
-                                               $row->{accounttype},
-                                               $row->{amount},
-                                               $row->{title},
-                                               $row->{barcode};
-                                               $row->{itype};
-                if ($csv->combine(@rowValues)) {
-                    $content .= $csv->string() . "\n";
-                } else {
-                    push @$q_errors, { combine => $csv->error_diag() } ;
+                        $row->{bfirstname},
+                        $row->{branchname},
+                        $row->{date},
+                        $row->{accounttype},
+                        $row->{amount},
+                        $row->{title},
+                        $row->{barcode},
+                        $row->{itype};
+                    push (@rows, \@rowValues) ;
                 }
-            }
-        }
+                my @total;
+                for (1..6){push(@total,"")};
+                push(@total, $grantotal);
         print $input->header(
-            -type => $type,
-            -attachment=> $reportfilename
-        );
-        print $content;
-
-        print $delimiter x 6;
-        print $grantotal."\n";
-        foreach my $err (@$q_errors) {
-            print "# ERROR: " . (map {$_ . ": " . $err->{$_}} keys %$err) . "\n";
-        }   # here we print all the non-fatal errors at the end.  Not super smooth, but better than nothing.
+            -type       => 'text/csv',
+            -encoding    => 'utf-8',
+            -attachment => $reportfilename,
+            -name       => $reportfilename
+         );
+        my $csvTemplate = C4::Templates::gettemplate('reports/csv/cash_register_stats.tt', 'intranet', $input);
+            $csvTemplate->param(sep => $delimiter, rows => \@rows, total => \@total );
+        print $csvTemplate->output;
         exit(1);
     }