[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 $count=@data;
! 	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 $count=@data;
! 	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;