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

(-)a/opac/opac-reserve.pl (-15 / +12 lines)
Lines 147-168 foreach my $biblioNumber (@biblionumbers) { Link Here
147
        $itemInfoHash{$itemInfo->{itemnumber}} = $itemInfo;
147
        $itemInfoHash{$itemInfo->{itemnumber}} = $itemInfo;
148
    }
148
    }
149
149
150
    if ($show_holds_count) {
150
    # Compute the priority rank.
151
        # Compute the priority rank.
151
    my ( $rank, $reserves ) =
152
        my ( $rank, $reserves ) = GetReservesFromBiblionumber($biblioNumber,1);
152
      GetReservesFromBiblionumber( $biblioNumber, 1 );
153
        $biblioData->{reservecount} = 1; # new reserve
153
    $biblioData->{reservecount} = 1;    # new reserve
154
        foreach my $res (@$reserves) {
154
    foreach my $res (@{$reserves}) {
155
            my $found = $res->{'found'};
155
        my $found = $res->{found};
156
            if ( $found && ($found eq 'W') ) {
156
        if ( $found && $found eq 'W' ) {
157
                $rank--;
157
            $rank--;
158
            }
158
        }
159
            else {
159
        else {
160
                $biblioData->{reservecount}++;
160
            $biblioData->{reservecount}++;
161
            }
162
        }
161
        }
163
        $rank++;
164
        $biblioData->{rank} = $rank;
165
    }
162
    }
163
    $biblioData->{rank} = $rank + 1;
166
}
164
}
167
165
168
#
166
#
169
- 

Return to bug 8479