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

[Andrew Arensburger]

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

Modified Files:
        pay.pl 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: pay.pl
===================================================================
RCS file: /cvsroot/koha/koha/pay.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** pay.pl      5 Oct 2002 09:46:27 -0000       1.5
--- pay.pl      13 Oct 2002 07:34:27 -0000      1.6
***************
*** 1,5 ****
  #!/usr/bin/perl
  
! #wrriten 11/1/2000 by address@hidden
  #part of the koha library system, script to facilitate paying off fines
  
--- 1,7 ----
  #!/usr/bin/perl
  
! # $Id$
! 
! #written 11/1/2000 by address@hidden
  #part of the koha library system, script to facilitate paying off fines
  
***************
*** 43,47 ****
  #get account details
  my %bor;
! $bor{'borrowernumber'}=$bornum;                            
  
  
--- 45,49 ----
  #get account details
  my %bor;
! $bor{'borrowernumber'}=$bornum;
  
  
***************
*** 78,82 ****
      recordpayment(\%env,$bornum,$total);
    }
!   my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);     
  
    print startpage();
--- 80,84 ----
      recordpayment(\%env,$bornum,$total);
    }
!   my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
  
    print startpage();
***************
*** 144,148 ****
  #  my $quety=$input->query_string;
  #  print $input->redirect("/cgi-bin/koha/sec/writeoff.pl?$quety");
!     my%inp;    
      my @name=$input->param;
      for (my $i=0;$i<@name;$i++){
--- 146,150 ----
  #  my $quety=$input->query_string;
  #  print $input->redirect("/cgi-bin/koha/sec/writeoff.pl?$quety");
!     my%inp;
      my @name=$input->param;
      for (my $i=0;$i<@name;$i++){