[Koha-cvs] CVS: koha/admin aqbookfund.pl,1.7,1.8

[David Strainchamps]

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

Modified Files:
        aqbookfund.pl 
Log Message:
add links to aqbudget.pl


Index: aqbookfund.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbookfund.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** aqbookfund.pl       11 Nov 2002 08:36:44 -0000      1.7
--- aqbookfund.pl       16 Nov 2002 21:37:03 -0000      1.8
***************
*** 51,55 ****
        my @data=split(' ',$searchstring);
        my address@hidden;
!       my $query="Select 
aqbudget.bookfundid,startdate,enddate,budgetamount,bookfundname from 
aqbudget,aqbookfund where aqbudget.bookfundid=aqbookfund.bookfundid and 
(aqbudget.bookfundid like \"$data[0]%\") order by bookfundid";
        my $sth=$dbh->prepare($query);
        $sth->execute;
--- 51,55 ----
        my @data=split(' ',$searchstring);
        my address@hidden;
!       my $query="select bookfundid,bookfundname,bookfundgroup from aqbookfund 
where bookfundid and (bookfundid like \"$data[0]%\") order by bookfundid";
        my $sth=$dbh->prepare($query);
        $sth->execute;