[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;
  }