Bug 8015: (follow-up) fix copy and move if subfields don't exist.

[koha.git] / opac / opac-addbybiblionumber.pl

diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl
index 6069e76..004577d 100755 (executable)
--- a/opac/opac-addbybiblionumber.pl
+++ b/opac/opac-addbybiblionumber.pl
@@ -143,6 +143,10 @@ sub HandleSelect {
 }
 
 sub LoadBib {
+    #see comment in AddBibliosToShelf
+    if (scalar(@biblionumber) == 1) {
+        @biblionumber = (split /\//,$biblionumber[0]);
+    }
     for my $bib (@biblionumber) {
         my $data = GetBiblioData( $bib );
     push(@biblios,