| 
      
            Lines 26-32
          use C4::Circulation;
      
      
        Link Here
      
     | 
  
        
          | 26 | 
          use C4::Branch;  | 
          26 | 
          use C4::Branch;  | 
        
        
          | 27 | 
          use C4::Accounts;  | 
          27 | 
          use C4::Accounts;  | 
        
        
          | 28 | 
          use C4::Biblio;  | 
          28 | 
          use C4::Biblio;  | 
        
          
            
              | 29 | 
              use C4::Reserves qw(AddReserve CancelReserve GetReservesFromBiblionumber GetReservesFromBorrowernumber CanBookBeReserved CanItemBeReserved);  | 
              29 | 
              use C4::Reserves qw(AddReserve CancelReserve GetReservesFromBiblionumber GetReservesFromBorrowernumber CanBookBeReserved CanItemBeReserved GetReserveNextRank);  | 
            
        
          | 30 | 
          use C4::Context;  | 
          30 | 
          use C4::Context;  | 
        
        
          | 31 | 
          use C4::AuthoritiesMarc;  | 
          31 | 
          use C4::AuthoritiesMarc;  | 
        
        
          | 32 | 
          use C4::ILSDI::Utility;  | 
          32 | 
          use C4::ILSDI::Utility;  | 
        
  
    | 
      
            Lines 623-631
          sub HoldTitle {
      
      
        Link Here
      
     | 
  
        
          | 623 | 
                  $branch = $$borrower{branchcode}; | 
          623 | 
                  $branch = $$borrower{branchcode}; | 
        
        
          | 624 | 
              }  | 
          624 | 
              }  | 
        
        
          | 625 | 
           | 
          625 | 
           | 
        
            
               | 
               | 
              626 | 
                  my $rank = GetReserveNextRank($biblionumber);  | 
            
            
              | 627 | 
               | 
            
        
          | 626 | 
              # Add the reserve  | 
          628 | 
              # Add the reserve  | 
        
        
          | 627 | 
              #          $branch, $borrowernumber, $biblionumber, $constraint, $bibitems,  $priority, $notes, $title, $checkitem,  $found  | 
          629 | 
              #          $branch, $borrowernumber, $biblionumber, $constraint, $bibitems,  $priority, $notes, $title, $checkitem,  $found  | 
        
          
            
              | 628 | 
                  AddReserve( $branch, $borrowernumber, $biblionumber, 'a', undef, 0, undef, $title, undef, undef );  | 
              630 | 
                  AddReserve( $branch, $borrowernumber, $biblionumber, 'a', undef, $rank, undef, $title, undef, undef );  | 
            
        
          | 629 | 
           | 
          631 | 
           | 
        
        
          | 630 | 
              # Hashref building  | 
          632 | 
              # Hashref building  | 
        
        
          | 631 | 
              my $out;  | 
          633 | 
              my $out;  | 
        
  
    | 
      
            Lines 702-710
          sub HoldItem {
      
      
        Link Here
      
     | 
  
        
          | 702 | 
              my $found;  | 
          704 | 
              my $found;  | 
        
        
          | 703 | 
           | 
          705 | 
           | 
        
        
          | 704 | 
              # Get rank and found  | 
          706 | 
              # Get rank and found  | 
        
          
            
              | 705 | 
                  $rank = '0' unless C4::Context->preference('ReservesNeedReturns'); | 
              707 | 
                  if (C4::Context->preference('ReservesNeedReturns')) { | 
            
            
              | 706 | 
                  if ( $item->{'holdingbranch'} eq $branch ) { | 
              708 | 
                      $rank = GetReserveNextRank($biblionumber);  | 
            
            
              | 707 | 
                      $found = 'W' unless C4::Context->preference('ReservesNeedReturns'); | 
              709 | 
                  } else { | 
            
            
               | 
               | 
              710 | 
                      $rank = '0';  | 
            
            
              | 711 | 
                      if ($item->{'holdingbranch'} eq $branch) { | 
            
            
              | 712 | 
                          $found = 'W';  | 
            
            
              | 713 | 
                      }  | 
            
        
          | 708 | 
              }  | 
          714 | 
              }  | 
        
        
          | 709 | 
           | 
          715 | 
           | 
        
        
          | 710 | 
              # Add the reserve  | 
          716 | 
              # Add the reserve  |