X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-addbybiblionumber.pl;h=fd3124b46bc4f62f6c05764b90215e82a927aacf;hb=18b8991cf1832a0ee79a526e6438b51fdb4f3208;hp=b1bf2245c5b630f364cba2806c278f9768d3faca;hpb=b06a289173d0f2e299b0c8652d59d47dc196062c;p=koha_fer

diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl
index b1bf2245c5..fd3124b46b 100755
--- a/opac/opac-addbybiblionumber.pl
+++ b/opac/opac-addbybiblionumber.pl
@@ -27,7 +27,7 @@ use warnings;
 
 use C4::Biblio;
 use CGI;
-use C4::VirtualShelves qw/:DEFAULT GetRecentShelves RefreshShelvesSummary/;
+use C4::VirtualShelves qw/:DEFAULT GetAllShelves RefreshShelvesSummary/;
 use C4::Auth;
 use C4::Output;
 use C4::Auth qw/get_session/;
@@ -96,36 +96,23 @@ else {
 				"category$singlecategory" => 1
 			);
 	} else {
-	# offer choice of shelves
-	my $limit = 10;
-    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] }) {
-            push(@shelvesloop, $shelf->{shelfnumber});
-            $shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname};
-        }
-    }
-    my $CGIvirtualshelves;
-    if ( @shelvesloop > 0 ) {
-        $CGIvirtualshelves = CGI::scrolling_list (
-            -name     => 'shelfnumber',
-            -id     => 'shelfnumber',
-            -values   => \@shelvesloop,
-            -labels   => \%shelvesloop,
-            -size     => 1,
-            -tabindex => '',
-            -multiple => 0
-        );
 
-	$template->param (
-		CGIvirtualshelves       => $CGIvirtualshelves,
-	);
-    }
-	}
+        my $privateshelves = GetAllShelves(1,$loggedinuser);
+        if(@{$privateshelves}){
+			$template->param (
+				privatevirtualshelves          => $privateshelves,
+				existingshelves => 1
+			);
+		}
+        my $publicshelves = GetAllShelves(2,$loggedinuser);
+        if(@{$publicshelves}){
+			$template->param (
+				publicvirtualshelves          => $publicshelves,
+				existingshelves => 1
+			);
+        }
 
+}
 	my @biblios;
 	for my $bib (@biblionumber) {
 		my $data = GetBiblioData( $bib );