|
Lines 312-321
if ($barcode) {
Link Here
|
| 312 |
MARC::Record->new_from_usmarc($hit) ); |
312 |
MARC::Record->new_from_usmarc($hit) ); |
| 313 |
|
313 |
|
| 314 |
# offer all barcodes individually |
314 |
# offer all barcodes individually |
| 315 |
foreach my $barcode ( sort split(/\s*\|\s*/, $chosen->{barcode}) ) { |
315 |
if ( $chosen->{barcode} ) { |
| 316 |
my %chosen_single = %{$chosen}; |
316 |
foreach my $barcode ( sort split(/\s*\|\s*/, $chosen->{barcode}) ) { |
| 317 |
$chosen_single{barcode} = $barcode; |
317 |
my %chosen_single = %{$chosen}; |
| 318 |
push( @options, \%chosen_single ); |
318 |
$chosen_single{barcode} = $barcode; |
|
|
319 |
push( @options, \%chosen_single ); |
| 320 |
} |
| 319 |
} |
321 |
} |
| 320 |
} |
322 |
} |
| 321 |
$template->param( options => \@options ); |
323 |
$template->param( options => \@options ); |
| 322 |
- |
|
|