|
Lines 59-65
use Koha::RefundLostItemFeeRules;
Link Here
|
| 59 |
use Koha::Account::Lines; |
59 |
use Koha::Account::Lines; |
| 60 |
use Koha::Account::Offsets; |
60 |
use Koha::Account::Offsets; |
| 61 |
use Koha::Config::SysPrefs; |
61 |
use Koha::Config::SysPrefs; |
| 62 |
use Koha::Fees; |
62 |
use Koha::Charges::Fees; |
| 63 |
use Carp; |
63 |
use Carp; |
| 64 |
use List::MoreUtils qw( uniq any ); |
64 |
use List::MoreUtils qw( uniq any ); |
| 65 |
use Scalar::Util qw( looks_like_number ); |
65 |
use Scalar::Util qw( looks_like_number ); |
|
Lines 716-722
sub CanBookBeIssued {
Link Here
|
| 716 |
# So issuingimpossible should be ok. |
716 |
# So issuingimpossible should be ok. |
| 717 |
} |
717 |
} |
| 718 |
|
718 |
|
| 719 |
my $fees = Koha::Fees->new( |
719 |
my $fees = Koha::Charges::Fees->new( |
| 720 |
{ |
720 |
{ |
| 721 |
patron => $patron, |
721 |
patron => $patron, |
| 722 |
library => $library, |
722 |
library => $library, |
|
Lines 1347-1353
sub AddIssue {
Link Here
|
| 1347 |
|
1347 |
|
| 1348 |
my $patron = Koha::Patrons->find( $borrower ); |
1348 |
my $patron = Koha::Patrons->find( $borrower ); |
| 1349 |
my $library = Koha::Libraries->find( $branch ); |
1349 |
my $library = Koha::Libraries->find( $branch ); |
| 1350 |
my $fees = Koha::Fees->new( |
1350 |
my $fees = Koha::Charges::Fees->new( |
| 1351 |
{ |
1351 |
{ |
| 1352 |
patron => $patron, |
1352 |
patron => $patron, |
| 1353 |
library => $library, |
1353 |
library => $library, |
|
Lines 2893-2899
sub AddRenewal {
Link Here
|
| 2893 |
} |
2893 |
} |
| 2894 |
|
2894 |
|
| 2895 |
|
2895 |
|
| 2896 |
my $fees = Koha::Fees->new( |
2896 |
my $fees = Koha::Charges::Fees->new( |
| 2897 |
{ |
2897 |
{ |
| 2898 |
patron => $patron, |
2898 |
patron => $patron, |
| 2899 |
library => $library, |
2899 |
library => $library, |