From 877da483e52db4fcc6eb44e0c5d1ffd163ae04a8 Mon Sep 17 00:00:00 2001 From: Nahuel Angelinetti Date: Wed, 10 Dec 2008 10:24:36 +0100 Subject: [PATCH] Fix something that doesn't work in some perl versions. Signed-off-by: Galen Charlton --- virtualshelves/addbybiblionumber.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl index 2c7600b22f..b19e7da4f8 100755 --- a/virtualshelves/addbybiblionumber.pl +++ b/virtualshelves/addbybiblionumber.pl @@ -98,13 +98,13 @@ else { # this shelf doesn't already exist. 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