[Koha-cvs] CVS: koha/C4/Circulation Fines.pm,1.6,1.7

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv15155

Modified Files:
	Fines.pm 
Log Message:
Deleted unused variables.
Removed trailing whitespace.


Index: Fines.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Fines.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Fines.pm	13 Oct 2002 06:18:42 -0000	1.6
--- Fines.pm	13 Oct 2002 08:31:21 -0000	1.7
***************
*** 81,85 ****
  #  print @results;
    # FIXME - Bogus API.
!   return($i,\@results);  
  }
  
--- 81,85 ----
  #  print @results;
    # FIXME - Bogus API.
!   return($i,\@results);
  }
  
***************
*** 253,257 ****
  #    print "in accounts ...";
      if ($data->{'amount'} != $amount){
!       
  #      print "updating";
        my $diff=$amount - $data->{'amount'};
--- 253,257 ----
  #    print "in accounts ...";
      if ($data->{'amount'} != $amount){
! 
  #      print "updating";
        my $diff=$amount - $data->{'amount'};
***************
*** 264,268 ****
        my $sth2=$dbh->prepare($query2);
        $sth2->execute;
!       $sth2->finish;      
      } else {
  #      print "no update needed $data->{'amount'}"
--- 264,268 ----
        my $sth2=$dbh->prepare($query2);
        $sth2->execute;
!       $sth2->finish;
      } else {
  #      print "no update needed $data->{'amount'}"
***************
*** 317,321 ****
    my ($borrowernumber)=@_;
    my $dbh = C4::Context->dbh;
!   my $query="Select * from borrowers,categories where 
    borrowernumber=$borrowernumber and
  borrowers.categorycode=categories.categorycode";
--- 317,321 ----
    my ($borrowernumber)=@_;
    my $dbh = C4::Context->dbh;
!   my $query="Select * from borrowers,categories where
    borrowernumber=$borrowernumber and
  borrowers.categorycode=categories.categorycode";