Lines 272-294
foreach my $bibnum ( @biblionumbers ){
Link Here
|
272 |
} |
272 |
} |
273 |
$hold_info->{itemtypes} = \@res_itemtypes; |
273 |
$hold_info->{itemtypes} = \@res_itemtypes; |
274 |
|
274 |
|
275 |
# get available locations for each biblio |
275 |
# get available values for each biblio |
276 |
$hold_info->{locations} = [ uniq map { defined $_->location ? $_->location : () } @$items ]; |
276 |
my $fff = { |
277 |
|
277 |
locations => 'location', |
278 |
# get available callnumbers for each biblio |
278 |
callnumbers => 'itemcallnumber', |
279 |
$hold_info->{callnumbers} = [ uniq map { defined $_->itemcallnumber ? $_->itemcallnumber : () } @$items ]; |
279 |
enumchrons => 'enumchron', |
280 |
|
280 |
copynumbers => 'copynumber', |
281 |
# get available enumchrons for each biblio |
281 |
barcodes => 'barcode', |
282 |
$hold_info->{enumchrons} = [ uniq map { defined $_->enumchron ? $_->enumchron : () } @$items ]; |
282 |
holdingbranches => 'holdingbranch' |
283 |
|
283 |
}; |
284 |
# get available copynumbers for each biblio |
284 |
|
285 |
$hold_info->{copynumbers} = [ uniq map { defined $_->copynumber ? $_->copynumber : () } @$items ]; |
285 |
while ( |
286 |
|
286 |
my ( $k, $f ) = each %$fff ) |
287 |
# get available barcodes for each biblio |
287 |
{ |
288 |
$hold_info->{barcodes} = [ uniq map { defined $_->barcode ? $_->barcode : () } @$items ]; |
288 |
$hold_info->{$k} = |
289 |
|
289 |
[ uniq map { defined $_->$f ? $_->$f : () } @$items ]; |
290 |
# get available holding branches for each biblio |
290 |
} |
291 |
$hold_info->{holdingbranches} = [ uniq map { defined $_->holdingbranch ? $_->holdingbranch : () } @$items ]; |
|
|
292 |
|
291 |
|
293 |
# items available |
292 |
# items available |
294 |
$hold_info->{items_count} = $items_count; |
293 |
$hold_info->{items_count} = $items_count; |
295 |
- |
|
|