[Koha-cvs] CVS: koha stats.pl,1.5,1.6
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 09:35:15 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv4524
Modified Files:
stats.pl
Log Message:
Added magic RCS comment.
Removed trailing whitespace.
Index: stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/stats.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** stats.pl 14 Aug 2002 18:12:51 -0000 1.5
--- stats.pl 13 Oct 2002 07:35:13 -0000 1.6
***************
*** 1,4 ****
--- 1,6 ----
#!/usr/bin/perl
+ # $Id$
+
#written 14/1/2000
#script to display reports
***************
*** 81,85 ****
my $temptotalres=0;
my $temptotalren=0;
! my $temptotalw=0;
for (my $i2=0;$i2<$count;$i2++){
$charge+=$charges[$i2]->{'amount'};
--- 83,87 ----
my $temptotalres=0;
my $temptotalren=0;
! my $temptotalw=0;
for (my $i2=0;$i2<$count;$i2++){
$charge+=$charges[$i2]->{'amount'};
***************
*** 99,103 ****
$temptotalren+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
}
! }
}
--- 101,105 ----
$temptotalren+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
}
! }
}
***************
*** 135,139 ****
my $time2="$payments[$i]{'date'}";
my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
!
if ($payments[$i]{'accounttype'} eq 'W'){
$totalw+=$payments[$i]{'amount'};
--- 137,141 ----
my $time2="$payments[$i]{'date'}";
my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
!
if ($payments[$i]{'accounttype'} eq 'W'){
$totalw+=$payments[$i]{'amount'};
***************
*** 154,158 ****
# my $time2="$payments[$i]{'date'} $time";
!
print mktablerow(6,'white',"$payments[$i]{'firstname'} <b>$payments[$i]{'surname'}</b>",
,$payments[$i]{'accounttype'},"$payments[$i]{'date'} $time",$payments[$i]{'amount'}
--- 156,160 ----
# my $time2="$payments[$i]{'date'} $time";
!
print mktablerow(6,'white',"$payments[$i]{'firstname'} <b>$payments[$i]{'surname'}</b>",
,$payments[$i]{'accounttype'},"$payments[$i]{'date'} $time",$payments[$i]{'amount'}
***************
*** 162,166 ****
$bornum=$payments[$i]{'borrowernumber'};
$i++;
!
}
print mktablerow('6','white','','','','','','');
--- 164,168 ----
$bornum=$payments[$i]{'borrowernumber'};
$i++;
!
}
print mktablerow('6','white','','','','','','');
More information about the Koha-cvs
mailing list