View | Details | Raw Unified | Return to bug 30847
Collapse All | Expand All

(-)a/opac/opac-reserve.pl (-13 / +3 lines)
Lines 169-186 foreach my $biblioNumber (@biblionumbers) { Link Here
169
    next unless $biblio;
169
    next unless $biblio;
170
170
171
    $biblioData->{object} = $biblio;
171
    $biblioData->{object} = $biblio;
172
    my $holds = $biblio->holds;
172
    my $reservecount = $biblio->holds->search({ found => [ {"!=" => "W"},undef] })->count;
173
    my $rank = $holds->count;
173
    $biblioData->{reservecount} = $reservecount;
174
    $biblioData->{reservecount} = 1;    # new reserve
174
    $biblioData->{rank} = $reservecount + 1;
175
    while ( my $hold = $holds->next ) {
176
        if ( $hold->is_waiting ) {
177
            $rank--;
178
        }
179
        else {
180
            $biblioData->{reservecount}++;
181
        }
182
    }
183
    $biblioData->{rank} = $rank + 1;
184
}
175
}
185
176
186
#
177
#
187
- 

Return to bug 30847