| Lines 41-46
          use C4::Context;
      
      
        Link Here | 
        
          | 41 | use CGI::Session; | 41 | use CGI::Session; | 
        
          | 42 | use C4::Members::Attributes qw(GetBorrowerAttributes); | 42 | use C4::Members::Attributes qw(GetBorrowerAttributes); | 
        
          | 43 | use Koha::Borrower::Debarments qw(GetDebarments); | 43 | use Koha::Borrower::Debarments qw(GetDebarments); | 
            
              |  |  | 44 | use C4::Overdues qw/GetItemCharges/; | 
        
          | 44 | use Koha::DateUtils; | 45 | use Koha::DateUtils; | 
        
          | 45 |  | 46 |  | 
        
          | 46 | use Date::Calc qw( | 47 | use Date::Calc qw( | 
  
    | Lines 478-485
          sub build_issue_data {
      
      
        Link Here | 
        
          | 478 |         # set itemtype per item-level_itype syspref - FIXME this is an ugly hack | 479 |         # set itemtype per item-level_itype syspref - FIXME this is an ugly hack | 
        
          | 479 |         $it->{'itemtype'} = ( C4::Context->preference( 'item-level_itypes' ) ) ? $it->{'itype'} : $it->{'itemtype'}; | 480 |         $it->{'itemtype'} = ( C4::Context->preference( 'item-level_itypes' ) ) ? $it->{'itype'} : $it->{'itemtype'}; | 
        
          | 480 |  | 481 |  | 
          
            
              | 481 |         ($it->{'charge'}, $it->{'itemtype_charge'}) = GetIssuingCharges( | 482 |         $it->{'charge'} = GetItemCharges( | 
            
              | 482 |             $it->{'itemnumber'}, $it->{'borrowernumber'} | 483 |             $it->{'borrowernumber'}, $it->{'itemnumber'} | 
        
          | 483 |         ); | 484 |         ); | 
        
          | 484 |         $it->{'charge'} = sprintf("%.2f", $it->{'charge'}); | 485 |         $it->{'charge'} = sprintf("%.2f", $it->{'charge'}); | 
        
          | 485 |         my ($can_renew, $can_renew_error) = CanBookBeRenewed(  | 486 |         my ($can_renew, $can_renew_error) = CanBookBeRenewed(  |