[Koha-cvs] CVS: koha moremember.pl,1.26,1.27
Paul POULAIN
tipaul at users.sourceforge.net
Mon Apr 7 16:05:59 CEST 2003
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv2039
Modified Files:
moremember.pl
Log Message:
fix for #187
Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** moremember.pl 26 Mar 2003 04:42:56 -0000 1.26
--- moremember.pl 7 Apr 2003 14:05:24 -0000 1.27
***************
*** 185,202 ****
my ($rescount,$reserves)=FindReserves('',$bornum); #From C4::Reserves2
- # FIXME
- # does it make sense to turn this into a foreach my $i (0..$rescount)
- # kind of loop?
- #
my @reservedata;
! for (my $i=0;$i<$rescount;$i++){
! $reserves->[$i]{'reservedate2'} = format_date($reserves->[$i]{'reservedate'});
! my $restitle;
! my %row = %$reserves->[$i];
! if ($reserves->[$i]{'constrainttype'} eq 'o'){
! $restitle=getreservetitle($reserves->[$i]{'biblionumber'},$reserves->[$i]{'borrowernumber'},$reserves->[$i]{'reservedate'},$reserves->[$i]{'timestamp'});
! %row = (%row , %$restitle);
! }
! push (@reservedata, \%row);
}
--- 185,198 ----
my ($rescount,$reserves)=FindReserves('',$bornum); #From C4::Reserves2
my @reservedata;
! foreach my $reserveline (@$reserves) {
! $reserveline->{'reservedate2'} = format_date($reserveline->{'reservedate'});
! my $restitle;
! my %row = %$reserveline;
! if ($reserveline->{'constrainttype'} eq 'o'){
! $restitle=getreservetitle($reserveline->{'biblionumber'},$reserveline->{'borrowernumber'},$reserveline->{'reservedate'},$reserveline->{'timestamp'});
! %row = (%row , %$restitle);
! }
! push (@reservedata, \%row);
}
More information about the Koha-cvs
mailing list