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