[Koha-cvs] CVS: koha stats.print.pl,1.3,1.4

[Mason James]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24745

Modified Files:
        stats.print.pl 
Log Message:
Tidy up.


Index: stats.print.pl
===================================================================
RCS file: /cvsroot/koha/koha/stats.print.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** stats.print.pl      22 Aug 2005 02:26:36 -0000      1.3
--- stats.print.pl      22 Aug 2005 05:56:34 -0000      1.4
***************
*** 1,5 ****
  #!/usr/bin/perl
  
- 
  use strict;
  use CGI;
--- 1,4 ----
***************
*** 11,14 ****
--- 10,23 ----
  use Date::Manip;
  use C4::Stats;
+ use Text::CSV_XS;
+ 
+ my $csv = Text::CSV_XS->new(
+     {
+         'quote_char'  => '"',
+         'escape_char' => '"',
+         'sep_char'    => ',',
+         'binary'      => 1
+     }
+ );
  
  my $input=new CGI;
***************
*** 118,124 ****
         $i++;
         $totalcredits = $totalcredits + $credits[$i]->{'amount'};
-        ;
- 
  }
  #takes off first char minus sign "-100.00"
  $totalcredits = substr($totalcredits, 1);
--- 127,132 ----
         $i++;
         $totalcredits = $totalcredits + $credits[$i]->{'amount'};
  }
+ 
  #takes off first char minus sign "-100.00"
  $totalcredits = substr($totalcredits, 1);
***************
*** 133,137 ****
  for my $row ( @loop1 ) {
  
!     my $csv->combine(@$row);
      my $string = $csv->string;
      print $string, "\n";
--- 141,145 ----
  for my $row ( @loop1 ) {
  
!     $csv->combine(@$row);
      my $string = $csv->string;
      print $string, "\n";
***************
*** 142,146 ****
  for my $row ( @loop2 ) {
  
!     my $csv->combine(@$row);
      my $string = $csv->string;
      print $string, "\n";
--- 150,154 ----
  for my $row ( @loop2 ) {
  
!     $csv->combine(@$row);
      my $string = $csv->string;
      print $string, "\n";
***************
*** 152,154 ****
  print ",,Total Number Written, $totalwritten\n";
  print ",,Total Amount Credits, $totalcredits\n";
- 
--- 160,161 ----