[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.28,1.29
Paul POULAIN
tipaul at users.sourceforge.net
Mon Apr 7 16:05:33 CEST 2003
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv2039/C4
Modified Files:
Reserves2.pm
Log Message:
fix for #187
Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -r1.28 -r1.29
*** Reserves2.pm 1 Apr 2003 12:26:43 -0000 1.28
--- Reserves2.pm 7 Apr 2003 14:05:29 -0000 1.29
***************
*** 147,152 ****
my $sth=$dbh->prepare($query);
$sth->execute;
- # FIXME - $i is unnecessary and bogus
- my $i=0;
my @results;
while (my $data=$sth->fetchrow_hashref){
--- 147,150 ----
***************
*** 174,183 ****
}
}
! $results[$i]=$data; # FIXME - Use push @results
! $i++;
}
- # print $query;
$sth->finish;
! return($i,\@results);
}
--- 172,179 ----
}
}
! push @results, $data;
}
$sth->finish;
! return($#results+1,\@results);
}
***************
*** 791,794 ****
--- 787,791 ----
reserveconstraints.timestamp=$timestamp";
my $sth=$dbh->prepare($query);
+ warn "q : $query";
$sth->execute;
my $data=$sth->fetchrow_hashref;
More information about the Koha-cvs
mailing list