| Lines 1110-1144
          sub ModReserveFill {
      
      
        Link Here | 
        
          | 1110 |     my $reserve_id = $res->{'reserve_id'}; | 1110 |     my $reserve_id = $res->{'reserve_id'}; | 
        
          | 1111 |  | 1111 |  | 
        
          | 1112 |     my $hold = Koha::Holds->find($reserve_id); | 1112 |     my $hold = Koha::Holds->find($reserve_id); | 
          
            
              | 1113 |     # get the priority on this record.... | 1113 |     $hold->fill; | 
            
              | 1114 |     my $priority = $hold->priority; |  |  | 
            
              | 1115 |  | 
            
              | 1116 |     # update the hold statuses, no need to store it though, we will be deleting it anyway | 
            
              | 1117 |     $hold->set( | 
            
              | 1118 |         { | 
            
              | 1119 |             found    => 'F', | 
            
              | 1120 |             priority => 0, | 
            
              | 1121 |         } | 
            
              | 1122 |     ); | 
            
              | 1123 |  | 
            
              | 1124 |     logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, $hold ) | 
            
              | 1125 |         if C4::Context->preference('HoldsLog'); | 
            
              | 1126 |  | 
            
              | 1127 |     # FIXME Must call Koha::Hold->cancel ? => No, should call ->filled and add the correct log | 
            
              | 1128 |     Koha::Old::Hold->new( $hold->unblessed() )->store(); | 
            
              | 1129 |  | 
            
              | 1130 |     $hold->delete(); | 
            
              | 1131 |  | 
            
              | 1132 |     if ( C4::Context->preference('HoldFeeMode') eq 'any_time_is_collected' ) { | 
            
              | 1133 |         my $reserve_fee = GetReserveFee( $hold->borrowernumber, $hold->biblionumber ); | 
            
              | 1134 |         ChargeReserveFee( $hold->borrowernumber, $reserve_fee, $hold->biblio->title ); | 
            
              | 1135 |     } | 
            
              | 1136 |  | 
            
              | 1137 |     # now fix the priority on the others (if the priority wasn't | 
            
              | 1138 |     # already sorted!).... | 
            
              | 1139 |     unless ( $priority == 0 ) { | 
            
              | 1140 |         _FixPriority( { reserve_id => $reserve_id, biblionumber => $hold->biblionumber } ); | 
            
              | 1141 |     } | 
        
          | 1142 | } | 1114 | } | 
        
          | 1143 |  | 1115 |  | 
        
          | 1144 | =head2 ModReserveStatus | 1116 | =head2 ModReserveStatus | 
            
              | 1145 | -  |  |  |