[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 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;
--- 52,56 ----
        my @data=split(' ',$searchstring);
        my address@hidden;
!       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 address@hidden;
!       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 address@hidden;
!       my $query="Select bookfundid,startdate,enddate,budgetamount from 
aqbudget where (bookfundid like \"$data[0]%\") order by bookfundid";
        my $sth=$dbh->prepare($query);
        $sth->execute;