[Koha-cvs] CVS: koha tidyaccounts.pl,1.3,1.4

[Andrew Arensburger]

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

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


Index: tidyaccounts.pl
===================================================================
RCS file: /cvsroot/koha/koha/tidyaccounts.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** tidyaccounts.pl     5 Oct 2002 09:47:00 -0000       1.3
--- tidyaccounts.pl     13 Oct 2002 07:35:38 -0000      1.4
***************
*** 1,3 ****
--- 1,6 ----
  #!/usr/bin/perl
+ 
+ # $Id$
+ 
  #
  # written 31/5/00 by address@hidden to make a way to fix account mistakes
***************
*** 38,49 ****
    if ($key ne 'bornum'){
      my $temp=$input->param($key);
!     
  #    print $temp,$key;
      if ($temp ne ''){
        fixaccounts($bornum,$key,$temp);
!    
      }
    }
  }
!     
  print $input->redirect("boraccount.pl?bornum=$bornum");
--- 41,52 ----
    if ($key ne 'bornum'){
      my $temp=$input->param($key);
! 
  #    print $temp,$key;
      if ($temp ne ''){
        fixaccounts($bornum,$key,$temp);
! 
      }
    }
  }
! 
  print $input->redirect("boraccount.pl?bornum=$bornum");