[Koha-cvs] CVS: koha/admin aqbudget.pl,1.11,1.12

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv611/admin

Modified Files:
	aqbudget.pl 
Log Message:
small bugfix (execute with ?)

Index: aqbudget.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbudget.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** aqbudget.pl	2 Feb 2003 07:18:38 -0000	1.11
--- aqbudget.pl	5 Feb 2003 15:52:24 -0000	1.12
***************
*** 191,198 ****
  	        my $dataaqbookfund;
  	        my $dbh = C4::Context->dbh;
! 	        my $query="select bookfundid,bookfundname from aqbookfund where bookfundid=$results->[$i]{'bookfundid'}";
  #	        print $query;
  		my $sth=$dbh->prepare($query);
! 		$sth->execute;
  		$dataaqbookfund=$sth->fetchrow_hashref;
  		$sth->finish;
--- 191,198 ----
  	        my $dataaqbookfund;
  	        my $dbh = C4::Context->dbh;
! 	        my $query="select bookfundid,bookfundname from aqbookfund where bookfundid=?";
  #	        print $query;
  		my $sth=$dbh->prepare($query);
! 		$sth->execute($results->[$i]{'bookfundid'});
  		$dataaqbookfund=$sth->fetchrow_hashref;
  		$sth->finish;