From 5eaf32d556dcc2a388b4304acdca3e7d94d983ae Mon Sep 17 00:00:00 2001 From: Marc Chantreux Date: Wed, 8 Oct 2008 13:05:01 +0200 Subject: [PATCH] 2663 fix Signed-off-by: Galen Charlton --- opac/opac-addbybiblionumber.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl index 9fe02ee4fd..1aab972050 100755 --- a/opac/opac-addbybiblionumber.pl +++ b/opac/opac-addbybiblionumber.pl @@ -95,13 +95,13 @@ else { my ($shelflist) = GetRecentShelves(1, $limit, $loggedinuser); my @shelvesloop; my %shelvesloop; - for my $shelf ( @{${@$shelflist}[0]} ) { + for my $shelf ( @{ $shelflist->[0] } ) { push( @shelvesloop, $shelf->{shelfnumber} ); $shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname}; } # then open shelves... my ($shelflist) = GetRecentShelves(3, $limit, undef); - for my $shelf ( @{${@$shelflist}[0]} ) { + for my $shelf ( @{ $shelflist->[0] } ) { push( @shelvesloop, $shelf->{shelfnumber} ); $shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname}; } -- 2.39.5