[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Search.pm,1.43,1.44
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/C4 Search.pm,1.43,1.44 |
Date: |
Thu, 10 Oct 2002 07:51:17 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv14070
Modified Files:
Search.pm
Log Message:
Made code a bit more Perl-ish.
Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -r1.43 -r1.44
*** Search.pm 10 Oct 2002 04:43:44 -0000 1.43
--- Search.pm 10 Oct 2002 14:51:14 -0000 1.44
***************
*** 1856,1866 ****
$sth->execute;
my @result;
! my $i=0;
! while (my $data=$sth->fetchrow_hashref){
! $result[$i]=$data;;
! $i++;
}
$sth->finish;
! return($i,address@hidden);
}
--- 1856,1864 ----
$sth->execute;
my @result;
! while (my $data = $sth->fetchrow_hashref) {
! push @result, $data;
}
$sth->finish;
! return(scalar(@result), address@hidden);
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Search.pm,1.43,1.44,
Andrew Arensburger <=