[Koha-cvs] CVS: koha/C4 Search.pm,1.43,1.44

[Andrew Arensburger]

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,\@result);
  }
  
--- 1856,1864 ----
      $sth->execute;
    my @result;
!   while (my $data = $sth->fetchrow_hashref) {
!     push @result, $data;
    }
    $sth->finish;
!   return(scalar(@result), \@result);
  }