Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Marc Chantreux 2008-10-08 13:05:01 +02:00 committed by Galen Charlton
parent e15c3b1b09
commit 5eaf32d556

View file

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