Bug 8015: Add unit tests for SimpleMARC and MarcModificationTemplates routines

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

diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl
index bea130d..004577d 100755 (executable)
--- a/opac/opac-addbybiblionumber.pl
+++ b/opac/opac-addbybiblionumber.pl
@@ -31,18 +31,18 @@ use C4::VirtualShelves qw/:DEFAULT GetAllShelves/;
 use C4::Output;
 use C4::Auth;
 
-my $query              = new CGI;
-my @biblionumber       = $query->param('biblionumber');
-my $selectedshelf      = $query->param('selectedshelf');
-my $newshelf           = $query->param('newshelf');
-my $shelfnumber        = $query->param('shelfnumber');
-my $newvirtualshelf    = $query->param('newvirtualshelf');
-my $category           = $query->param('category');
-my $authorized          = 1;
-my $errcode            = 0;
-my @biblios;
+our $query             = new CGI;
+our @biblionumber      = $query->param('biblionumber');
+our $selectedshelf     = $query->param('selectedshelf');
+our $newshelf          = $query->param('newshelf');
+our $shelfnumber       = $query->param('shelfnumber');
+our $newvirtualshelf   = $query->param('newvirtualshelf');
+our $category          = $query->param('category');
+our $authorized          = 1;
+our $errcode           = 0;
+our @biblios;
 
-my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+our ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
         template_name   => "opac-addbybiblionumber.tmpl",
         query           => $query,
@@ -115,12 +115,11 @@ sub HandleShelfNumber {
 sub HandleSelectedShelf {
     if($authorized= ShelfPossibleAction( $loggedinuser, $selectedshelf, 'add')){
         #adding to specific shelf
-        my ($singleshelf, $singleshelfname, $singlecategory)= GetShelf($query->param('selectedshelf'));
+        my ($singleshelf, $singleshelfname)= GetShelf($query->param('selectedshelf'));
         $template->param(
         singleshelf               => 1,
         shelfnumber               => $singleshelf,
         shelfname                 => $singleshelfname,
-        "category$singlecategory" => 1
         );
     }
 }
@@ -144,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,