[Koha-cvs] CVS: koha/admin aqbudget.pl,1.2.2.3,1.2.2.4

[Steve Tonnesen]

Update of /cvsroot/koha/koha/admin
In directory usw-pr-cvs1:/tmp/cvs-serv13787

Modified Files:
      Tag: rel-1-2
	aqbudget.pl 
Log Message:
Replaced text box with drop down showing list of bookfunds.


Index: aqbudget.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbudget.pl,v
retrieving revision 1.2.2.3
retrieving revision 1.2.2.4
diff -C2 -r1.2.2.3 -r1.2.2.4
*** aqbudget.pl	25 Jun 2002 11:04:42 -0000	1.2.2.3
--- aqbudget.pl	25 Jun 2002 23:06:19 -0000	1.2.2.4
***************
*** 144,148 ****
  	        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>";
  	}
  	print "<tr><td>Start date</td><td><input type=text name=startdate size=40 maxlength=80 value='$data->{'startdate'}'>&nbsp;</td></tr>";
--- 144,156 ----
  	        print "<tr><td>Book fund</td><td>$data->{'bookfundname'}</td></tr>";
  	} else {
! 		my $dbh = &C4Connect;
! 		my $sth=$dbh->prepare("select bookfundid,bookfundname from aqbookfund");
! 		$sth->execute;
! 		my $bookfundoptions='';
! 		while (my ($bfid, $bfname) = $sth->fetchrow) {
! 		    $bookfundoptions.="<option value=$bfid>$bfname";
! 		}
! 		($bookfundoptions) || ($bookfundoptions='<option value=0>No Book Funds have been created');
! 		print "<tr><td>Book fund</td><td><select name=bookfundid>$bookfundoptions</select></td></tr>";
  	}
  	print "<tr><td>Start date</td><td><input type=text name=startdate size=40 maxlength=80 value='$data->{'startdate'}'>&nbsp;</td></tr>";