[Koha-cvs] CVS: koha moremember.pl,1.26,1.27

[Paul POULAIN]

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);
  }