From 98d746e42e467166609de4c0f3f86993764371dd Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 5 Feb 2003 15:52:24 +0000
Subject: [PATCH] small bugfix (execute with ?)

---
 admin/aqbudget.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/admin/aqbudget.pl b/admin/aqbudget.pl
index 29b98b944c..bc242d6152 100755
--- a/admin/aqbudget.pl
+++ b/admin/aqbudget.pl
@@ -190,10 +190,10 @@ if ($op eq 'add_form') {
 	#  	$fines=$fines+0;
 	        my $dataaqbookfund;
 	        my $dbh = C4::Context->dbh;
-	        my $query="select bookfundid,bookfundname from aqbookfund where bookfundid=$results->[$i]{'bookfundid'}";
+	        my $query="select bookfundid,bookfundname from aqbookfund where bookfundid=?";
 #	        print $query;
 		my $sth=$dbh->prepare($query);
-		$sth->execute;
+		$sth->execute($results->[$i]{'bookfundid'});
 		$dataaqbookfund=$sth->fetchrow_hashref;
 		$sth->finish;
 	        my @toggle = ();
-- 
2.39.5