| 
      
            Lines 68-78
          FIXME : if no replacement price, borrower just doesn't get charged?
      
      
        Link Here
      
     | 
  
        
          | 68 | 
          sub chargelostitem { | 
          68 | 
          sub chargelostitem { | 
        
        
          | 69 | 
              my $dbh = C4::Context->dbh();  | 
          69 | 
              my $dbh = C4::Context->dbh();  | 
        
        
          | 70 | 
              my ( $borrowernumber, $itemnumber, $replacementprice, $description ) = @_;  | 
          70 | 
              my ( $borrowernumber, $itemnumber, $replacementprice, $description ) = @_;  | 
        
          
            
              | 71 | 
                  my $item  = Koha::Items->find($itemnumber);  | 
              71 | 
                  my $patron = Koha::Patrons->find($borrowernumber);  | 
            
            
              | 72 | 
                  my $itype = $item->itemtype;  | 
              72 | 
                  my $item   = Koha::Items->find($itemnumber);  | 
            
            
               | 
               | 
              73 | 
                  my $itype  = $item->itemtype;  | 
            
        
          | 73 | 
              $replacementprice //= 0;  | 
          74 | 
              $replacementprice //= 0;  | 
        
          
            
              | 74 | 
                  my $defaultreplacecost        = $itype->defaultreplacecost;  | 
              75 | 
                  my $defaultreplacecost = $itype->defaultreplacecost;  | 
            
            
              | 75 | 
                  my $processfee                = $itype->processfee;  | 
              76 | 
               | 
            
            
               | 
               | 
              77 | 
                  my $lost_control_pref = C4::Context->preference('LostChargesControl'); | 
            
            
              | 78 | 
                  my $lost_control_branch;  | 
            
            
              | 79 | 
                  if ( $lost_control_pref eq 'PatronLibrary' ) { | 
            
            
              | 80 | 
                      $lost_control_branch = $patron->branchcode;  | 
            
            
              | 81 | 
                  } elsif ( $lost_control_pref eq 'PickupLibrary' ) { | 
            
            
              | 82 | 
                      $lost_control_branch = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef; | 
            
            
              | 83 | 
                  } else {    # $lost_control_pref eq 'ItemHomeLibrary' | 
            
            
              | 84 | 
                      $lost_control_branch =  | 
            
            
              | 85 | 
                          ( C4::Context->preference('HomeOrHoldingBranch') eq 'homebranch' ) | 
            
            
              | 86 | 
                          ? $item->homebranch  | 
            
            
              | 87 | 
                          : $item->holdingbranch;  | 
            
            
              | 88 | 
                  }  | 
            
            
              | 89 | 
               | 
            
            
              | 90 | 
                  my $processfee = Koha::CirculationRules->get_effective_rule_value(  | 
            
            
              | 91 | 
                      { | 
            
            
              | 92 | 
                          rule_name    => "lost_item_processing_fee",  | 
            
            
              | 93 | 
                          categorycode => undef,  | 
            
            
              | 94 | 
                          itemtype     => $itype->itemtype,  | 
            
            
              | 95 | 
                          branchcode   => $lost_control_branch  | 
            
            
              | 96 | 
                      }  | 
            
            
              | 97 | 
                  ) // 0;  | 
            
        
          | 76 | 
              my $usedefaultreplacementcost = C4::Context->preference("useDefaultReplacementCost"); | 
          98 | 
              my $usedefaultreplacementcost = C4::Context->preference("useDefaultReplacementCost"); | 
        
        
          | 77 | 
              my $processingfeenote         = C4::Context->preference("ProcessingFeeNote"); | 
          99 | 
              my $processingfeenote         = C4::Context->preference("ProcessingFeeNote"); | 
        
        
          | 78 | 
           | 
          100 | 
           | 
        
            
              | 79 | 
              -   | 
               | 
               |