Merge commit 'biblibre/3.2_biblibre' into to-push

[koha.git] / virtualshelves / addbybiblionumber.pl
diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl

index fd3c2d6..215a145 100755 (executable)
--- a/virtualshelves/addbybiblionumber.pl
+++ b/virtualshelves/addbybiblionumber.pl
@@ -50,6 +50,10 @@
  
      if this script has to add a shelf, it add one with this category.
  
+=item newshelf
+
+    if this parameter exists, then we create a new shelf
+
  =back
  
  =cut
@@ -62,13 +66,12 @@ use C4::VirtualShelves qw/:DEFAULT GetRecentShelves/;
  use C4::Circulation;
  use C4::Auth;
  
-#use it only to debug !
-use warnings;
-
+# splits incoming biblionumber(s) to array and adds each to shelf.
  sub AddBibliosToShelf {
      my ($shelfnumber,@biblionumber)=@_;
  
      # multiple bibs might come in as '/' delimited string (from where, i don't see), or as array.
+    # (Note : they come in as '/' when added from the cart)
      if (scalar(@biblionumber) == 1) {
          @biblionumber = (split /\//,$biblionumber[0]);
      }
@@ -83,13 +86,16 @@ my $query           = new CGI;
  my $biblionumber    = $query->param('biblionumber');
  
  # If set, then multiple item case.
-
+my @biblionumber   = $query->param('biblionumber');
  my $biblionumbers   = $query->param('biblionumbers');
+
  my $shelfnumber     = $query->param('shelfnumber');
  my $newvirtualshelf = $query->param('newvirtualshelf');
+my $newshelf        = $query->param('newshelf');
  my $category        = $query->param('category');
-my $confirmed        = $query->param('confirmed');
-my $sortfield          = $query->param('sortfield');
+my $sortfield      = $query->param('sortfield');
+my $confirmed       = $query->param('confirmed') || 0;
+
  
  my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
      {
@@ -107,12 +113,15 @@ if ($biblionumbers) {
  } else {
      @biblionumbers = (@biblionumber);
  }
+if (scalar(@biblionumber) == 1) {
+        @biblionumber = (split /\//,$biblionumber[0]);
+}
  
-$shelfnumber = AddShelf( $newvirtualshelf, $loggedinuser, $category, $sortfield )
-  if $newvirtualshelf;
+$shelfnumber = AddShelf( $newvirtualshelf, $loggedinuser, $category, $sortfield ) if $newvirtualshelf;
  if ( $shelfnumber || ( $shelfnumber == -1 ) ) {    # the shelf already exist.
+
      if ($confirmed == 1) {
-       AddBibliosToShelf($shelfnumber,@biblionumbers);
+       AddBibliosToShelf($shelfnumber,@biblionumber);
         print
      "Content-Type: text/html\n\n<html><body onload=\"window.opener.location.reload(true);window.close()\"></body></html>";
         exit;
@@ -156,6 +165,7 @@ else {    # this shelf doesn't already exist.
          push( @shelvesloop, $shelf->{shelfnumber} );
          $shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname};
      }
+
      if(@shelvesloop gt 0){
          my $CGIvirtualshelves = CGI::scrolling_list
            (
@@ -171,8 +181,23 @@ else {    # this shelf doesn't already exist.
             CGIvirtualshelves => $CGIvirtualshelves,
            );
      }
-    
-    unless ($biblionumbers) {
+       my @biblios;
+        for my $bib (@biblionumber) {
+           my $data = GetBiblioData( $bib );
+            push(@biblios,
+                        { biblionumber => $bib,
+                          title        => $data->{'title'},
+                          author       => $data->{'author'},
+                        } );
+        }
+    $template->param(
+           newshelf     => $newshelf,
+          biblios=>\@biblios,
+           multiple     => (scalar(@biblionumber) > 1),
+           total        => scalar(@biblionumber),
+    );
+
+    unless (@biblionumbers) {
          my ( $bibliocount, @biblios ) = GetBiblio($biblionumber);
      
          $template->param