[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.42,1.43

[Andrew Arensburger]

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

Modified Files:
        Circ2.pm 
Log Message:
Cleaned things up a bit.


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -r1.42 -r1.43
*** Circ2.pm    10 Oct 2002 04:47:54 -0000      1.42
--- Circ2.pm    11 Oct 2002 03:24:29 -0000      1.43
***************
*** 1740,1746 ****
      my ($env,$dbh,$itemno,$bornum,$charge) = @_;
      my $nextaccntno = getnextacctno($env,$bornum,$dbh);
!     my $query = "insert into accountlines 
(borrowernumber,itemnumber,accountno,date,amount, 
description,accounttype,amountoutstanding) values 
($bornum,$itemno,$nextaccntno,now(),$charge,'Rental','Rent',$charge)";
!     my $sth = $dbh->prepare($query);
!     $sth->execute;
      $sth->finish;
  }
--- 1740,1753 ----
      my ($env,$dbh,$itemno,$bornum,$charge) = @_;
      my $nextaccntno = getnextacctno($env,$bornum,$dbh);
!     my $sth = $dbh->prepare(<<EOT);
!       INSERT INTO     accountlines
!                       (borrowernumber, itemnumber, accountno,
!                        date, amount, description, accounttype,
!                        amountoutstanding)
!       VALUES          (?, ?, ?,
!                        now(), ?, 'Rental', 'Rent',
!                        ?)
! EOT
!     $sth->execute($bornum, $itemno, $nextaccntno, $charge, $charge)
      $sth->finish;
  }