| 
      
            Lines 130-135
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 130 | 
                  &ReserveSlip  | 
          130 | 
                  &ReserveSlip  | 
        
        
          | 131 | 
                  &ToggleSuspend  | 
          131 | 
                  &ToggleSuspend  | 
        
        
          | 132 | 
                  &SuspendAll  | 
          132 | 
                  &SuspendAll  | 
        
            
               | 
               | 
              133 | 
               | 
            
            
              | 134 | 
                      &GetReservesControlBranch  | 
            
        
          | 133 | 
              );  | 
          135 | 
              );  | 
        
        
          | 134 | 
              @EXPORT_OK = qw( MergeHolds );  | 
          136 | 
              @EXPORT_OK = qw( MergeHolds );  | 
        
        
          | 135 | 
          }      | 
          137 | 
          }      | 
        
  
    | 
      
            Lines 863-869
          sub CheckReserves {
      
      
        Link Here
      
     | 
  
        
          | 863 | 
                          if ( $res->{'priority'} && $res->{'priority'} < $priority ) { | 
          865 | 
                          if ( $res->{'priority'} && $res->{'priority'} < $priority ) { | 
        
        
          | 864 | 
                              my $borrowerinfo=C4::Members::GetMember(borrowernumber => $res->{'borrowernumber'}); | 
          866 | 
                              my $borrowerinfo=C4::Members::GetMember(borrowernumber => $res->{'borrowernumber'}); | 
        
        
          | 865 | 
                              my $iteminfo=C4::Items::GetItem($itemnumber);  | 
          867 | 
                              my $iteminfo=C4::Items::GetItem($itemnumber);  | 
        
          
            
              | 866 | 
                                  my $branch=C4::Circulation::_GetCircControlBranch($iteminfo,$borrowerinfo);  | 
              868 | 
                                  my $branch = GetReservesControlBranch( $iteminfo, $borrowerinfo );  | 
            
        
          | 867 | 
                              my $branchitemrule = C4::Circulation::GetBranchItemRule($branch,$iteminfo->{'itype'}); | 
          869 | 
                              my $branchitemrule = C4::Circulation::GetBranchItemRule($branch,$iteminfo->{'itype'}); | 
        
        
          | 868 | 
                              next if ($branchitemrule->{'holdallowed'} == 0); | 
          870 | 
                              next if ($branchitemrule->{'holdallowed'} == 0); | 
        
        
          | 869 | 
                              next if (($branchitemrule->{'holdallowed'} == 1) && ($branch ne $borrowerinfo->{'branchcode'})); | 
          871 | 
                              next if (($branchitemrule->{'holdallowed'} == 1) && ($branch ne $borrowerinfo->{'branchcode'})); | 
        
  
    | 
      
            Lines 2168-2173
          sub ReserveSlip {
      
      
        Link Here
      
     | 
  
        
          | 2168 | 
              );  | 
          2170 | 
              );  | 
        
        
          | 2169 | 
          }  | 
          2171 | 
          }  | 
        
        
          | 2170 | 
           | 
          2172 | 
           | 
        
            
               | 
               | 
              2173 | 
              =head2 GetReservesControlBranch  | 
            
            
              | 2174 | 
               | 
            
            
              | 2175 | 
                my $reserves_control_branch = GetReservesControlBranch($item, $borrower);  | 
            
            
              | 2176 | 
               | 
            
            
              | 2177 | 
                Return the branchcode to be used to determine which reserves  | 
            
            
              | 2178 | 
                policy applies to a transaction.  | 
            
            
              | 2179 | 
               | 
            
            
              | 2180 | 
                C<$iteminfos> is a hashref for an item. Only 'homebranch' is used.  | 
            
            
              | 2181 | 
               | 
            
            
              | 2182 | 
                C<$borrower> is a hashref to borrower. Only 'branchcode' is used.  | 
            
            
              | 2183 | 
               | 
            
            
              | 2184 | 
              =cut  | 
            
            
              | 2185 | 
               | 
            
            
              | 2186 | 
              sub GetReservesControlBranch { | 
            
            
              | 2187 | 
                  my ( $item, $borrower ) = @_;  | 
            
            
              | 2188 | 
               | 
            
            
              | 2189 | 
                  my $reserves_control = C4::Context->preference('ReservesControlBranch'); | 
            
            
              | 2190 | 
               | 
            
            
              | 2191 | 
                  my $branchcode =  | 
            
            
              | 2192 | 
                      ( $reserves_control eq 'ItemHomeLibrary' ) ? $item->{'homebranch'} | 
            
            
              | 2193 | 
                    : ( $reserves_control eq 'PatronLibrary' )   ? $borrower->{'branchcode'} | 
            
            
              | 2194 | 
                    :                                              undef;  | 
            
            
              | 2195 | 
               | 
            
            
              | 2196 | 
                  return $branchcode;  | 
            
            
              | 2197 | 
              }  | 
            
            
              | 2198 | 
               | 
            
        
          | 2171 | 
          =head1 AUTHOR  | 
          2199 | 
          =head1 AUTHOR  | 
        
        
          | 2172 | 
           | 
          2200 | 
           | 
        
        
          | 2173 | 
          Koha Development Team <http://koha-community.org/>  | 
          2201 | 
          Koha Development Team <http://koha-community.org/>  |