[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha stats.pl,1.8,1.9
From: |
Mike Hansen |
Subject: |
[Koha-cvs] CVS: koha stats.pl,1.8,1.9 |
Date: |
Tue, 29 Apr 2003 17:15:02 -0700 |
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 address@hidden;
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 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha stats.pl,1.8,1.9,
Mike Hansen <=