Lines 446-459
foreach my $biblionumber (@biblionumbers) {
Link Here
|
446 |
} |
446 |
} |
447 |
); |
447 |
); |
448 |
} |
448 |
} |
449 |
my @branchloop; |
|
|
450 |
foreach my $br ( sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches ) { |
451 |
my %abranch; |
452 |
$abranch{'selected'} = ( $br eq $res->{'branchcode'} ); |
453 |
$abranch{'branch'} = $br; |
454 |
$abranch{'branchname'} = $branches->{$br}->{'branchname'}; |
455 |
push( @branchloop, \%abranch ); |
456 |
} |
457 |
|
449 |
|
458 |
if ( ( $res->{'found'} eq 'W' ) ) { |
450 |
if ( ( $res->{'found'} eq 'W' ) ) { |
459 |
my $item = $res->{'itemnumber'}; |
451 |
my $item = $res->{'itemnumber'}; |
Lines 497-503
foreach my $biblionumber (@biblionumbers) {
Link Here
|
497 |
$reserve{'ccode'} = $res->{'ccode'}; |
489 |
$reserve{'ccode'} = $res->{'ccode'}; |
498 |
$reserve{'barcode'} = $res->{'barcode'}; |
490 |
$reserve{'barcode'} = $res->{'barcode'}; |
499 |
$reserve{'priority'} = $res->{'priority'}; |
491 |
$reserve{'priority'} = $res->{'priority'}; |
500 |
$reserve{'branchloop'} = \@branchloop; |
492 |
$reserve{'branchloop'} = GetBranchesLoop($res->{'branchcode'}); |
501 |
$reserve{'optionloop'} = \@optionloop; |
493 |
$reserve{'optionloop'} = \@optionloop; |
502 |
|
494 |
|
503 |
push( @reserveloop, \%reserve ); |
495 |
push( @reserveloop, \%reserve ); |
504 |
- |
|
|