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