From 6429a01f3bec5edad2b8d1059ad5da62e9f77f02 Mon Sep 17 00:00:00 2001
From: szrj1m <szrj1m>
Date: Mon, 22 Aug 2005 00:37:11 +0000
Subject: [PATCH] Removed unneeded modules.

---
 stats.print.pl | 51 +++++++++-----------------------------------------
 1 file changed, 9 insertions(+), 42 deletions(-)

diff --git a/stats.print.pl b/stats.print.pl
index 960c17b05c..b9fc52e9ec 100755
--- a/stats.print.pl
+++ b/stats.print.pl
@@ -1,16 +1,5 @@
 #!/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;
@@ -21,25 +10,11 @@ use C4::Interface::CGI::Output;
 use C4::Context;
 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;
 
-#my $time=$input->param('time');
-#my $time="month";
-#my $time="today";
 
 my $date;
 my $date2;
@@ -66,14 +41,9 @@ if ($time=~ /\//){
         $date2=DateCalc($date,$date2);
 }
 
-#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=UnixDate($date,'%Y-%m-%d');
+my $date2=UnixDate($date2,'%Y-%m-%d');
 
-#my $date="2005-01-05";
-#my $date2="2005-01-06";
 
 #get a list of every payment
 my @payments=TotalPaid($date,$date2);
@@ -97,15 +67,18 @@ while ($i<$count ){
            @charges=getcharges($payments[$i]{'borrowernumber'}, $payments[$i]{'timestamp'}, $payments[$i]{'proccode'});
            $totalcharges++;
            $count=@charges;
+
            # getting each of the charges and putting them into a array to be printed out
            #this loops per charge per person
            for (my $i2=0;$i2<$count;$i2++){
+
                my $hour=substr($payments[$i]{'timestamp'},8,2);
                my $min=substr($payments[$i]{'timestamp'},10,2);
                my $sec=substr($payments[$i]{'timestamp'},12,2);
                my $time="$hour:$min:$sec";
                my $time2="$payments[$i]{'date'}";
                my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
+
                my @rows1 = ($branch,          # lets build up a row
                             $payments[$i]->{'datetime'},
                             $payments[$i]->{'surname'},
@@ -115,6 +88,7 @@ while ($i<$count ){
                             sprintf("%.2f", $charges[$i2]->{'amount'}), # rounding amounts to 2dp
                             $payments[$i]->{'type'},
                             $payments[$i]->{'value'});
+
                push (@loop1, \@rows1);
            }
        } else {
@@ -124,13 +98,9 @@ while ($i<$count ){
        $totalpaid = $totalpaid + $payments[$i]->{'value'};
 }
 
-
-
 #get credits and append to the bottom of payments
 my @credits=getcredits($date,$date2);
 
-#print Dumper(@credits);
-
 my $count=@credits;
 my $i=0;
 
@@ -145,17 +115,14 @@ while ($i<$count ){
                     $credits[$i]->{'amount'});
 
        push (@loop2, \@rows2);
-       $i++; #increment the while loop
+       $i++;
        $totalcredits = $totalcredits + $credits[$i]->{'amount'};
        ;
 
 }
 #takes off first char minus sign "-100.00"
-
-
 $totalcredits = substr($totalcredits, 1);
 
-
 print $input->header(
     -type       => 'application/vnd.ms-excel',
     -attachment => "moo.csv",
-- 
2.39.5