[Koha-cvs] CVS: koha/admin aqbookfund.pl,1.9,1.10 aqbudget.pl,1.8,1.9

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv24388/admin

Modified Files:
	aqbookfund.pl aqbudget.pl 
Log Message:
bugfix for bugzilla #160

Index: aqbookfund.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbookfund.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** aqbookfund.pl	10 Dec 2002 17:35:49 -0000	1.9
--- aqbookfund.pl	28 Jan 2003 13:04:08 -0000	1.10
***************
*** 52,56 ****
  	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;
--- 52,56 ----
  	my @data=split(' ',$searchstring);
  	my $count=@data;
! 	my $query="select bookfundid,bookfundname,bookfundgroup from aqbookfund where (bookfundid like \"$data[0]%\") order by bookfundid";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;
***************
*** 58,63 ****
  	my $cnt=0;
  	while (my $data=$sth->fetchrow_hashref){
! 	push(@results,$data);
! 	$cnt ++;
  	}
  	#  $sth->execute;
--- 58,63 ----
  	my $cnt=0;
  	while (my $data=$sth->fetchrow_hashref){
! 		push(@results,$data);
! 		$cnt ++;
  	}
  	#  $sth->execute;
***************
*** 194,198 ****
  	    		$toggle="white";
  	  	}
! 	while (@toggle and @bookfundid and @bookfundname and @bookfundgroup) { 
  	   my %row_data;
  	   $row_data{toggle} = shift @toggle;
--- 194,198 ----
  	    		$toggle="white";
  	  	}
! 	while (@toggle and @bookfundid and @bookfundname and @bookfundgroup) {
  	   my %row_data;
  	   $row_data{toggle} = shift @toggle;

Index: aqbudget.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbudget.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** aqbudget.pl	10 Dec 2002 17:35:51 -0000	1.8
--- aqbudget.pl	28 Jan 2003 13:04:09 -0000	1.9
***************
*** 54,58 ****
  	my @data=split(' ',$searchstring);
  	my $count=@data;
! 	my $query="Select bookfundid,startdate,enddate,budgetamount from aqbudget where bookfundid and (bookfundid like \"$data[0]%\") order by bookfundid";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;
--- 54,58 ----
  	my @data=split(' ',$searchstring);
  	my $count=@data;
! 	my $query="Select bookfundid,startdate,enddate,budgetamount from aqbudget where (bookfundid like \"$data[0]%\") order by bookfundid";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;