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