Change default AUTH_INDEX_MODE to dom

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

index 56b2b57..a0b0e45 100755 (executable)
--- a/opac/opac-reserve.pl
+++ b/opac/opac-reserve.pl
@@ -18,12 +18,12 @@
  use strict;
  use warnings;
  use CGI;
-use C4::Biblio;
-use C4::Items;
  use C4::Auth;    # checkauth, getborrowernumber.
  use C4::Koha;
  use C4::Circulation;
  use C4::Reserves;
+use C4::Biblio;
+use C4::Items;
  use C4::Output;
  use C4::Dates qw/format_date/;
  use C4::Context;
@@ -45,7 +45,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
          debug           => 1,
      }
  );
-
+my $OPACDisplayRequestPriority = (C4::Context->preference("OPACDisplayRequestPriority")) ? 1 : 0;
  sub get_out ($$$) {
         output_html_with_http_headers(shift,shift,shift); # $query, $cookie, $template->output;
         exit;
@@ -96,16 +96,6 @@ $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;
-
  #
  #
  # Build hashes of the requested biblio(item)s and items.
@@ -167,7 +157,7 @@ if ( $query->param('place_reserve') ) {
          my $branch = $query->param('branch');
          $selectedItems = "$bib/$item/$branch/";
      }
-    
+
      my @selectedItems = split /\//, $selectedItems;
  
      # Make sure there is a biblionum/itemnum/branch triplet for each item.
@@ -190,7 +180,7 @@ if ( $query->param('place_reserve') ) {
  
          my $biblioData = $biblioDataHash{$biblioNum};
          my $found;
-        
+
         # Check for user supplied reserve date
         my $startdate;
         if (
@@ -216,7 +206,7 @@ if ( $query->param('place_reserve') ) {
              # Inserts a null into the 'itemnumber' field of 'reserves' table.
              $itemNum = undef;
          }
-        
+
          # Here we actually do the reserveration. Stage 3.
          AddReserve($branch, $borrowernumber, $biblioNum, 'a', [$biblioNum], $rank, $startdate, $notes,
                     $biblioData->{'title'}, $itemNum, $found) if ($canreserve);
@@ -264,7 +254,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));
@@ -333,12 +323,12 @@ foreach my $biblioNum (@biblionumbers) {
          my $fee = GetReserveFee(undef, $borrowernumber, $itemInfo->{'biblionumber'}, 'a',
                                  ( $itemInfo->{'biblioitemnumber'} ) );
          $itemInfo->{'reservefee'} = sprintf "%.02f", ($fee ? $fee : 0.0);
-        
+
          if ($itemLevelTypes && $itemInfo->{itype}) {
              $itemInfo->{description} = $itemTypes->{$itemInfo->{itype}}{description};
              $itemInfo->{imageurl} = getitemtypeimagesrc() . "/". $itemTypes->{$itemInfo->{itype}}{imageurl};
          }
-        
+
          if (!$itemInfo->{'notforloan'} && !($itemInfo->{'itemnotforloan'} > 0)) {
              $biblioLoopIter{forloan} = 1;
          }
@@ -426,7 +416,9 @@ foreach my $biblioNum (@biblionumbers) {
          # If there is no loan, return and transfer, we show a checkbox.
          $itemLoopIter->{notforloan} = $itemLoopIter->{notforloan} || 0;
  
-        my $branchitemrule = GetBranchItemRule( $borr->{'branchcode'}, $itemInfo->{'itype'} );
+        my $branch = C4::Circulation::_GetCircControlBranch($itemLoopIter, $borr);
+
+        my $branchitemrule = GetBranchItemRule( $branch, $itemInfo->{'itype'} );
          my $policy_holdallowed = 1;
  
          if ( $branchitemrule->{'holdallowed'} == 0 ||
@@ -447,13 +439,13 @@ foreach my $biblioNum (@biblionumbers) {
              $itemLoopIter->{waitingdate} = format_date($wait_hashref->{waitingdate});
          }
         $itemLoopIter->{imageurl} = getitemtypeimagelocation( 'opac', $itemTypes->{ $itemInfo->{itype} }{imageurl} );
-     
+
      # Show serial enumeration when needed
      if ($itemLoopIter->{enumchron}) {
-        $itemdata_enumchron = 1;    
+        $itemdata_enumchron = 1;
      }
      $template->param( itemdata_enumchron => $itemdata_enumchron );
-        
+
          push @{$biblioLoopIter{itemLoop}}, $itemLoopIter;
      }
  
@@ -487,7 +479,7 @@ $template->param(itemtable_colspan => $itemTableColspan);
  
  # display infos
  $template->param(bibitemloop => $biblioLoop);
-
+$template->param( showpriority=>1 ) if $OPACDisplayRequestPriority;
  # can set reserve date in future
  if (
      C4::Context->preference( 'AllowHoldDateInFuture' ) &&