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

[Andrew Arensburger]

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

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


Index: updatecharges.pl
===================================================================
RCS file: /cvsroot/koha/koha/updatecharges.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** updatecharges.pl    5 Oct 2002 09:47:29 -0000       1.3
--- updatecharges.pl    13 Oct 2002 07:35:58 -0000      1.4
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  #script to update charges for overdue in database
  #updates categoryitem
***************
*** 40,44 ****
  
  foreach my $key (@names){
!   
    my $bor=substr($key,0,1);
    my $cat=$key;
--- 42,46 ----
  
  foreach my $key (@names){
! 
    my $bor=substr($key,0,1);
    my $cat=$key;
***************
*** 47,51 ****
    my @dat=split(',',$data);
  #  print "$bor $cat $dat[0] $dat[1] $dat[2] <br> ";
!   my $sth=$dbh->prepare("Update categoryitem set 
fine=$dat[0],startcharge=$dat[1],chargeperiod=$dat[2] where 
    categorycode='$bor' and itemtype='$cat'");
    $sth->execute;
--- 49,53 ----
    my @dat=split(',',$data);
  #  print "$bor $cat $dat[0] $dat[1] $dat[2] <br> ";
!   my $sth=$dbh->prepare("Update categoryitem set 
fine=$dat[0],startcharge=$dat[1],chargeperiod=$dat[2] where
    categorycode='$bor' and itemtype='$cat'");
    $sth->execute;