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