From 99fdc7afa098b9ae9b8bc93831c9aeff7386cd87 Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Fri, 11 Oct 2002 03:24:29 +0000
Subject: [PATCH] Cleaned things up a bit.

---
 C4/Circulation/Circ2.pm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 488eeae368..8b84e9a17d 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -1739,9 +1739,16 @@ sub createcharge {
 #Stolen from Issues.pm
     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;
+    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;
 }
 
-- 
2.39.5