[Koha-cvs] CVS: koha stats.screen.pl,1.1,1.2

[Mason James]

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

Modified Files:
	stats.screen.pl 
Log Message:
Removed unused modules. 


Index: stats.screen.pl
===================================================================
RCS file: /cvsroot/koha/koha/stats.screen.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** stats.screen.pl	22 Aug 2005 00:19:43 -0000	1.1
--- stats.screen.pl	22 Aug 2005 00:33:45 -0000	1.2
***************
*** 1,17 ****
  #!/usr/bin/perl
  
! #things to do
! 
! # First sort by branch
! #Then sort by surname
! 
! #_Branch_:  Could we have Levin displaying as L, please, not C__
! 
! #_Totals_ :
! #*Total Paid *
! #*Total written off*
! #*Total credits (which will include manual credits and credits for lost books returned*
! 
! #use strict;
  use CGI;
  use C4::Output;
--- 1,5 ----
  #!/usr/bin/perl
  
! use strict;
  use CGI;
  use C4::Output;
***************
*** 22,40 ****
  use Date::Manip;
  use C4::Stats;
- use Data::Dumper;
- 
- use Text::CSV_XS;
- 
- my $csv = Text::CSV_XS->new(
-     {
-         'quote_char'   => '"',
-         'escape_char'  => '"',
-         'sep_char'     => ',',
-         'binary'       => 1,
-         'always_quote' => 1,
-     }
- );
- 
- my $input=new CGI;
  
  
--- 10,13 ----
***************
*** 46,60 ****
                               query => $input,
                               type => "intranet",
!                              authnotrequired => 1,
                               flagsrequired => {borrowers => 1},
                               debug => 1,
                               });
  
- 
- 
- #my $time=$input->param('time');
- #my $time="month";
- #my $time="today";
- 
  my $date;
  my $date2;
--- 19,27 ----
                               query => $input,
                               type => "intranet",
!                              authnotrequired => ,
                               flagsrequired => {borrowers => 1},
                               debug => 1,
                               });
  
  my $date;
  my $date2;
***************
*** 82,93 ****
  }
  
! #my $date=UnixDate($date,'%Y-%m-%d');
! #my $date2=UnixDate($date2,'%Y-%m-%d');
! 
! my $date="2005-08-19";
! my $date2="2005-08-20";
! 
! #my $date="2005-01-05";
! #my $date2="2005-01-06";
  
  #get a list of every payment
--- 49,54 ----
  }
  
! my $date=UnixDate($date,'%Y-%m-%d');
! my $date2=UnixDate($date2,'%Y-%m-%d');
  
  #get a list of every payment
***************
*** 113,116 ****
--- 74,78 ----
             $totalcharges++;
             $count=@charges;
+ 
             # getting each of the charges and putting them into a array to be printed out
             #this loops per charge per person
***************
*** 123,129 ****
                 my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
  
- 
-                my $fullname = join ' ', $payments[$i]->{'firstname'}, $payments[$i]->{'surname'};
- 
                 # lets build up a row
                 my %rows1 = (branch => $branch,
--- 85,88 ----
***************
*** 146,156 ****
  }
  
- 
- 
  #get credits and append to the bottom of payments
  my @credits=getcredits($date,$date2);
  
- #print Dumper(@credits);
- 
  my $count=@credits;
  my $i=0;
--- 105,111 ----
***************
*** 172,178 ****
  
  }
- #takes off first char minus sign "-100.00"
- 
  
  $totalcredits = substr($totalcredits, 1);
  
--- 127,132 ----
  
  }
  
+ #takes off first char minus sign "-100.00"
  $totalcredits = substr($totalcredits, 1);
  
***************
*** 184,187 ****
  
  output_html_with_http_headers $input, $cookie, $template->output;
- 
- 
--- 138,139 ----