Merge remote-tracking branch 'kc/new/bug_6094' into kcmaster

[koha.git] / virtualshelves / addbybiblionumber.pl

diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl
index a0d9fdd..1dbffbb 100755 (executable)
--- a/virtualshelves/addbybiblionumber.pl
+++ b/virtualshelves/addbybiblionumber.pl
@@ -152,21 +152,21 @@ if ( $shelfnumber || ( $shelfnumber == -1 ) ) {    # the shelf already exist.
     }
 }
 else {    # this shelf doesn't already exist.
-    my $limit = 10;
+#    my $limit = 10;
     my ($shelflist);
     my @shelvesloop;
     my %shelvesloop;
 
     #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] }) {
+           my ($shelflist) = GetRecentShelves($shelftype, undef, $shelftype == 3 ? undef : $loggedinuser);
+           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',