[Koha-cvs] CVS: koha stats.pl,1.5,1.6

[Andrew Arensburger]

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','','','','','','');