[Koha-devel] CVS: koha/admin aqbudget.pl,1.1,1.2

[Chris Cormack]

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