Bug 3810: Ensure all calls to Mail::Sendmail handled consistently

[koha.git] / opac / opac-reserve.pl
diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl

index 675b901..d50480a 100755 (executable)
--- a/opac/opac-reserve.pl
+++ b/opac/opac-reserve.pl
@@ -88,7 +88,7 @@ if (($#biblionumbers < 0) && (! $query->param('place_reserve'))) {
  }
  
  # pass the pickup branch along....
-my $branch = $query->param('branch') || C4::Context->userenv->{branch} || '' ;
+my $branch = $query->param('branch') || $borr->{'branchcode'} || C4::Context->userenv->{branch} || '' ;
  ($branches->{$branch}) or $branch = "";     # Confirm branch is real
  $template->param( branch => $branch );
  
@@ -96,15 +96,10 @@ $template->param( branch => $branch );
  my $CGIbranchloop = GetBranchesLoop($branch);
  $template->param( CGIbranch => $CGIbranchloop );
  
-#Debug
-#output_html_with_http_headers($query,$cookie,"<html><head></head><body> @biblionumbers </body></html>\n");
-#exit;
-#my %bibdata;
-#my $rank;
-#my $biblionumber;
-#my $bibdata;
-#my %itemhash;
-#my $forloan;
+# Is the person allowed to choose their branch
+my $OPACChooseBranch = (C4::Context->preference("OPACAllowUserToChooseBranch")) ? 1 : 0;
+
+$template->param( choose_branch => $OPACChooseBranch);
  
  #
  #
@@ -168,7 +163,8 @@ if ( $query->param('place_reserve') ) {
          $selectedItems = "$bib/$item/$branch/";
      }
  
-    my @selectedItems = split /\//, $selectedItems;
+    $selectedItems =~ s!/$!!;
+    my @selectedItems = split /\//, $selectedItems, -1;
  
      # Make sure there is a biblionum/itemnum/branch triplet for each item.
      # The itemnum can be 'any', meaning next available.
@@ -184,7 +180,7 @@ if ( $query->param('place_reserve') ) {
          my $branch    = shift(@selectedItems); # i.e., branch code, not name
  
          my $singleBranchMode = $template->param('singleBranchMode');
-        if ($singleBranchMode) {
+        if ($singleBranchMode || ! $OPACChooseBranch) { # single branch mode or disabled user choosing
              $branch = $borr->{'branchcode'};
          }
  
@@ -199,6 +195,8 @@ if ( $query->param('place_reserve') ) {
             ) {
             $startdate = $query->param("reserve_date_$biblioNum");
         }
+       
+       my $expiration_date = $query->param("expiration_date_$biblioNum");
  
          # If a specific item was selected and the pickup branch is the same as the
          # holdingbranch, force the value $rank and $found.
@@ -218,7 +216,7 @@ if ( $query->param('place_reserve') ) {
          }
  
          # Here we actually do the reserveration. Stage 3.
-        AddReserve($branch, $borrowernumber, $biblioNum, 'a', [$biblioNum], $rank, $startdate, $notes,
+        AddReserve($branch, $borrowernumber, $biblioNum, 'a', [$biblioNum], $rank, $startdate, $expiration_date, $notes,
                     $biblioData->{'title'}, $itemNum, $found) if ($canreserve);
      }
  
@@ -264,7 +262,7 @@ if ( $borr->{debarred} && ($borr->{debarred} eq 1) ) {
  
  my @reserves = GetReservesFromBorrowernumber( $borrowernumber );
  $template->param( RESERVES => \@reserves );
-if ( scalar(@reserves) >= $MAXIMUM_NUMBER_OF_RESERVES ) {
+if ( $MAXIMUM_NUMBER_OF_RESERVES && (scalar(@reserves) >= $MAXIMUM_NUMBER_OF_RESERVES) ) {
      $template->param( message => 1 );
      $noreserves = 1;
      $template->param( too_many_reserves => scalar(@reserves));
@@ -296,13 +294,13 @@ my $notforloan_label_of = get_notforloan_label_of();
  my $biblioLoop = [];
  my $numBibsAvailable = 0;
  my $itemdata_enumchron = 0;
+my $anyholdable;
  my $itemLevelTypes = C4::Context->preference('item-level_itypes');
-$template->param('item-level_itypes' => $itemLevelTypes);
+$template->param('item_level_itypes' => $itemLevelTypes);
  
  foreach my $biblioNum (@biblionumbers) {
  
      my $record = GetMarcBiblio($biblioNum);
-    my $subtitle = C4::Biblio::get_koha_field_from_marc('bibliosubtitle', 'subtitle', $record, '');
      # Init the bib item with the choices for branch pickup
      my %biblioLoopIter = ( branchChoicesLoop => $CGIbranchloop );
  
@@ -315,7 +313,7 @@ foreach my $biblioNum (@biblionumbers) {
  
      $biblioLoopIter{biblionumber} = $biblioData->{biblionumber};
      $biblioLoopIter{title} = $biblioData->{title};
-    $biblioLoopIter{subtitle} = $subtitle;
+    $biblioLoopIter{subtitle} = GetRecordValue('subtitle', $record, GetFrameworkCode($biblioData->{biblionumber}));
      $biblioLoopIter{author} = $biblioData->{author};
      $biblioLoopIter{rank} = $biblioData->{rank};
      $biblioLoopIter{reservecount} = $biblioData->{reservecount};
@@ -344,8 +342,6 @@ foreach my $biblioNum (@biblionumbers) {
          }
      }
  
-    $biblioLoopIter{itemTypeDescription} = $itemTypes->{$biblioData->{itemtype}}{description};
-
      $biblioLoopIter{itemLoop} = [];
      my $numCopiesAvailable = 0;
      foreach my $itemInfo (@{$biblioData->{itemInfos}}) {
@@ -463,19 +459,22 @@ foreach my $biblioNum (@biblionumbers) {
          $numBibsAvailable++;
          $biblioLoopIter{bib_available} = 1;
          $biblioLoopIter{holdable} = 1;
+        $anyholdable = 1;
      }
      if ($biblioLoopIter{already_reserved}) {
          $biblioLoopIter{holdable} = undef;
+        $anyholdable = undef;
      }
      if(not CanBookBeReserved($borrowernumber,$biblioNum)){
          $biblioLoopIter{holdable} = undef;
+        $anyholdable = undef;
      }
  
      push @$biblioLoop, \%biblioLoopIter;
  }
  
-if ( $numBibsAvailable == 0 ) {
-    $template->param( none_available => 1, message => 1 );
+if ( $numBibsAvailable == 0 || !$anyholdable) {
+    $template->param( none_available => 1 );
  }
  
  my $itemTableColspan = 5;
@@ -496,10 +495,11 @@ if (
      C4::Context->preference( 'OPACAllowHoldDateInFuture' )
      ) {
      $template->param(
-       reserve_in_future         => 1,
-       DHTMLcalendar_dateformat  => C4::Dates->DHTMLcalendar(),
-       );
+           reserve_in_future         => 1,
+    );
  }
  
+$template->param( DHTMLcalendar_dateformat  => C4::Dates->DHTMLcalendar() );
+
  output_html_with_http_headers $query, $cookie, $template->output;