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