[Koha-cvs] CVS: koha/misc fines2.pl,1.8,1.9

[Andrew Arensburger]

Update of /cvsroot/koha/koha/misc
In directory usw-pr-cvs1:/tmp/cvs-serv24727

Modified Files:
        fines2.pl 
Log Message:
Removed trailing whitespace.


Index: fines2.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/fines2.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** fines2.pl   13 Oct 2002 06:32:17 -0000      1.8
--- fines2.pl   13 Oct 2002 10:44:59 -0000      1.9
***************
*** 2,6 ****
  
  #  This script loops through each overdue item, determines the fine,
! #  and updates the total amount of fines due by each user.  It relies on 
  #  the existence of /tmp/fines, which is created by ???
  # Doesnt really rely on it, it relys on being able to write to /tmp/
--- 2,6 ----
  
  #  This script loops through each overdue item, determines the fine,
! #  and updates the total amount of fines due by each user.  It relies on
  #  the existence of /tmp/fines, which is created by ???
  # Doesnt really rely on it, it relys on being able to write to /tmp/
***************
*** 81,85 ****
  for (my $i=0;$i<$numOverdueItems;$i++){
    my @dates=split('-',$data->[$i]->{'date_due'});
!   my $date2=Date_DaysSince1BC($dates[1],$dates[2],$dates[0]);    
    my $due="$dates[2]/$dates[1]/$dates[0]";
    my $borrower=BorType($data->[$i]->{'borrowernumber'});
--- 81,85 ----
  for (my $i=0;$i<$numOverdueItems;$i++){
    my @dates=split('-',$data->[$i]->{'date_due'});
!   my $date2=Date_DaysSince1BC($dates[1],$dates[2],$dates[0]);
    my $due="$dates[2]/$dates[1]/$dates[0]";
    my $borrower=BorType($data->[$i]->{'borrowernumber'});
***************
*** 90,94 ****
        CalcFine($data->[$i]->{'itemnumber'},
                 $borrower->{'categorycode'},
!                $difference);      
      if ($amount > $maxFine){
        $amount=$maxFine;
--- 90,94 ----
        CalcFine($data->[$i]->{'itemnumber'},
                 $borrower->{'categorycode'},
!                $difference);
      if ($amount > $maxFine){
        $amount=$maxFine;
***************
*** 119,124 ****
         print 
"$printout\t$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t$borrower->{'firstname'}\t$borrower->{'surname'}\t$data->[$i]->{'date_due'}\t$type\t$difference\t$borrower->{'emailaddress'}\t$borrower->{'phone'}\t$borrower->{'streetaddress'}\t$borrower->{'city'}\t$amount\n";
      } else { # FIXME
!            # if this is really useless, the whole else clause should be 
!            # deleted. 
               #
  #      print "$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t0 
fine\n";
--- 119,124 ----
         print 
"$printout\t$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t$borrower->{'firstname'}\t$borrower->{'surname'}\t$data->[$i]->{'date_due'}\t$type\t$difference\t$borrower->{'emailaddress'}\t$borrower->{'phone'}\t$borrower->{'streetaddress'}\t$borrower->{'city'}\t$amount\n";
      } else { # FIXME
!            # if this is really useless, the whole else clause should be
!            # deleted.
               #
  #      print "$borrower->{'cardnumber'}\t$borrower->{'categorycode'}\t0 
fine\n";
***************
*** 129,133 ****
        my $borrower=BorType($data->[$i]->{'borrowernumber'});
        if ($borrower->{'cardnumber'} ne ''){
!         my $cost=ReplacementCost($data->[$i]->{'itemnumber'});        
        my $dbh = C4::Context->dbh;
        my $env;
--- 129,133 ----
        my $borrower=BorType($data->[$i]->{'borrowernumber'});
        if ($borrower->{'cardnumber'} ne ''){
!         my $cost=ReplacementCost($data->[$i]->{'itemnumber'});
        my $dbh = C4::Context->dbh;
        my $env;