Update of /cvsroot/koha/koha/admin In directory usw-pr-cvs1:/tmp/cvs-serv8885 Modified Files: aqbudget.pl Log Message: Fixing up the query to pickup budget Index: aqbudget.pl =================================================================== RCS file: /cvsroot/koha/koha/admin/aqbudget.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** aqbudget.pl 5 Mar 2002 20:48:42 -0000 1.1 --- aqbudget.pl 5 Apr 2002 03:09:18 -0000 1.2 *************** *** 68,72 **** if ($bookfundid) { my $dbh = &C4Connect; ! my $sth=$dbh->prepare("select bookfundid,startdate,enddate,budgetamount,bookfundname from aqbudget,aqbookfund where aqbudget.bookfundid=aqbookfund.bookfundid and bookfundid='$bookfundid'"); $sth->execute; $data=$sth->fetchrow_hashref; --- 68,74 ---- if ($bookfundid) { my $dbh = &C4Connect; ! my $query="select aqbookfund.bookfundid,startdate,enddate,budgetamount,bookfundname from aqbudget,aqbookfund where aqbudget.bookfundid=aqbookfund.bookfundid and aqbookfund.bookfundid='$bookfundid'"; ! # print $query; ! my $sth=$dbh->prepare($query); $sth->execute; $data=$sth->fetchrow_hashref; *************** *** 140,143 **** --- 142,146 ---- if ($bookfundid) { print "<tr><td>Book fund</td><td><input type=hidden name=bookfundid value=$bookfundid>$bookfundid</td></tr>"; + print "<tr><td>Book fund</td><td>$data->{'bookfundname'}</td></tr>"; } else { print "<tr><td>Book fund</td><td><input type=text name=bookfundid size=5 maxlength=5 onBlur=toUC(this)></td></tr>";