gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing up the query to pickup budget

This commit is contained in:
rangi 2002-04-05 03:09:18 +00:00
parent 9eed1523e2
commit 9715feaa03
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
admin/aqbudget.pl
View File

@ -67,7 +67,9 @@ if ($op eq 'add_form') {
my $data;
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'");
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;
$sth->finish;
@ -139,6 +141,7 @@ printend
print "<table>";
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>";
}