Ticket 1110 : Balance carts and lists

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

index d565493..69a2c06 100755 (executable)
--- a/virtualshelves/addbybiblionumber.pl
+++ b/virtualshelves/addbybiblionumber.pl
@@ -61,23 +61,51 @@ use C4::Output;
  use C4::VirtualShelves qw/:DEFAULT GetRecentShelves/;
  use C4::Circulation;
  use C4::Auth;
+#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.
+    if (scalar(@biblionumber) == 1) {
+        @biblionumber = (split /\//,$biblionumber[0]);
+    }
+    for my $bib (@biblionumber){
+        AddToShelfFromBiblio($bib, $shelfnumber);
+    }
+}
+
+
  
  #use it only to debug !
-use CGI::Carp qw/fatalsToBrowser/;
  use warnings;
  
+sub AddBibliosToShelf {
+    my ($shelfnumber,@biblionumber)=@_;
+
+    # multiple bibs might come in as '/' delimited string (from where, i don't see), or as array.
+    if (scalar(@biblionumber) == 1) {
+        @biblionumber = (split /\//,$biblionumber[0]);
+    }
+    for my $bib (@biblionumber){
+        AddToShelfFromBiblio($bib, $shelfnumber);
+    }
+}
+
  my $query           = new CGI;
  
  # If set, then single item case.
  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 $category        = $query->param('category');
-my $sortfield          = $query->param('sortfield');
+my $sortfield      = $query->param('sortfield');
+my $confirmed       = $query->param('confirmed') || 0;
+
  
  my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
      {
@@ -93,18 +121,42 @@ my @biblionumbers;
  if ($biblionumbers) {
      @biblionumbers = split '/', $biblionumbers;
  } else {
-    @biblionumbers = ($biblionumber);
+    @biblionumbers = (@biblionumber);
  }
  
  $shelfnumber = AddShelf( $newvirtualshelf, $loggedinuser, $category, $sortfield )
    if $newvirtualshelf;
  if ( $shelfnumber || ( $shelfnumber == -1 ) ) {    # the shelf already exist.
-    foreach my $biblionumber (@biblionumbers) {
-        AddToShelfFromBiblio( $biblionumber, $shelfnumber );
+
+    if ($confirmed == 1) {
+       AddBibliosToShelf($shelfnumber,@biblionumber);
+       print
+    "Content-Type: text/html\n\n<html><body onload=\"window.opener.location.reload(true);window.close()\"></body></html>";
+       exit;
+    } else {
+       my ( $singleshelf, $singleshelfname, $singlecategory ) = GetShelf( $query->param('shelfnumber') );
+       my @biblios;
+        for my $bib (@biblionumber) {
+           my $data = GetBiblioData( $bib );
+            push(@biblios,
+                        { biblionumber => $bib,
+                          title        => $data->{'title'},
+                          author       => $data->{'author'},
+                        } );
+        }
+
+               $template->param
+        (
+         biblionumber => \@biblionumber,
+         biblios      => \@biblios,
+         multiple     => (scalar(@biblionumber) > 1),
+         singleshelf  => 1,
+         shelfname    => $singleshelfname,
+         shelfnumber  => $singleshelf,
+         total        => scalar(@biblionumber),
+         confirm      => 1,
+        );
      }
-    print
-"Content-Type: text/html\n\n<html><body onload=\"window.close()\"></body></html>";
-    exit;
  }
  else {    # this shelf doesn't already exist.
      my $limit = 10;
@@ -116,7 +168,7 @@ else {    # this shelf doesn't already exist.
          $shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname};
      }
      # then open shelves...
-    my ($shelflist) = GetRecentShelves(3, $limit, undef);
+    ($shelflist) = GetRecentShelves(3, $limit, undef);
      for my $shelf ( @{ $shelflist->[0] } ) {
          push( @shelvesloop, $shelf->{shelfnumber} );
          $shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname};
@@ -163,5 +215,5 @@ else {    # this shelf doesn't already exist.
            );
      }
      
-    output_html_with_http_headers $query, $cookie, $template->output;
  }
+output_html_with_http_headers $query, $cookie, $template->output;