Merge remote-tracking branch 'kc/new/enh/bug_5922' into kcmaster

[koha.git] / virtualshelves / addbybiblionumber.pl

diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl
index a0d9fdd..f1ac674 100755 (executable)
--- a/virtualshelves/addbybiblionumber.pl
+++ b/virtualshelves/addbybiblionumber.pl
@@ -160,13 +160,13 @@ else {    # this shelf doesn't already exist.
     #grab each type of shelf, open (type 3) should not be limited by user.
     foreach my $shelftype (1,2,3) {
            my ($shelflist) = GetRecentShelves($shelftype, $limit, $shelftype == 3 ? undef : $loggedinuser);
-           for my $shelf (@{ $shelflist->[0] }) {
+           for my $shelf (@{ $shelflist }) {
                    push(@shelvesloop, $shelf->{shelfnumber});
                    $shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname};
            }
     }
 
-    if(@shelvesloop gt 0){
+    if( @shelvesloop ){
         my $CGIvirtualshelves = CGI::scrolling_list
           (
            -name     => 'shelfnumber',