gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix something that doesn't work in some perl versions. 

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Nahuel Angelinetti 2008-12-10 10:24:36 +01:00 committed by Galen Charlton
parent 3ad66441c8
commit 877da483e5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
virtualshelves/addbybiblionumber.pl
View File

@ -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};
}