[Koha-cvs] CVS: koha stats.pl,1.8,1.9

[Mike Hansen]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv23901/koha

Modified Files:
	stats.pl 
Log Message:
Fixed bug #358


Index: stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/stats.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** stats.pl	2 Apr 2003 09:47:51 -0000	1.8
--- stats.pl	30 Apr 2003 00:14:59 -0000	1.9
***************
*** 70,76 ****
  my $count=@payments;
  my $total=0;
- my %levin;
- my %foxton;
- my %shannon;
  my $oldtime;
  my $totalw=0;
--- 70,73 ----
***************
*** 121,140 ****
    my $time2="$payments[$i]{'date'}";
    my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
-   if ($branch eq 'C'){
-     $levin{'totalf'}+=$temptotalf;
-     $levin{'totalres'}+=$temptotalres;
-     $levin{'totalren'}+=$temptotalren;
-     $levin{'totalr'}+=$temptotalr;
-   } elsif ($branch eq 'F'){
-     $foxton{'totalf'}+=$temptotalf;
-     $foxton{'totalres'}+=$temptotalres;
-     $foxton{'totalren'}+=$temptotalren;
-     $foxton{'totalr'}+=$temptotalr;
-   } elsif ($branch eq 'S'){
-     $shannon{'totalf'}+=$temptotalf;
-     $shannon{'totalres'}+=$temptotalres;
-     $shannon{'totalren'}+=$temptotalren;
-     $shannon{'totalr'}+=$temptotalr;
-   }
    my $bornum=$payments[$i]{'borrowernumber'};
    my $oldtime=$payments[$i]{'timestamp'};
--- 118,121 ----
***************
*** 153,166 ****
        $payments[$i]{'amount'}=$payments[$i]{'amount'}*-1;
        $total+=$payments[$i]{'amount'};
-       if ($branch eq 'C'){
-         $levin{'total'}+=$payments[$i]{'amount'};
-       }
-       if ($branch eq 'F'){
-         $foxton{'total'}+=$payments[$i]{'amount'};
-       }
-       if ($branch eq 'S'){
-         $shannon{'total'}+=$payments[$i]{'amount'};
-       }
- 
      }
  
--- 134,137 ----