|
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 707-713
sub CanBookBeIssued {
Link Here
|
| 707 |
# So issuingimpossible should be ok. |
707 |
# So issuingimpossible should be ok. |
| 708 |
} |
708 |
} |
| 709 |
|
709 |
|
| 710 |
my $fees = Koha::Fees->new( |
710 |
my $fees = Koha::Charges::Fees->new( |
| 711 |
{ |
711 |
{ |
| 712 |
patron => $patron, |
712 |
patron => $patron, |
| 713 |
library => $library, |
713 |
library => $library, |
|
Lines 1337-1343
sub AddIssue {
Link Here
|
| 1337 |
|
1337 |
|
| 1338 |
my $patron = Koha::Patrons->find( $borrower ); |
1338 |
my $patron = Koha::Patrons->find( $borrower ); |
| 1339 |
my $library = Koha::Libraries->find( $branch ); |
1339 |
my $library = Koha::Libraries->find( $branch ); |
| 1340 |
my $fees = Koha::Fees->new( |
1340 |
my $fees = Koha::Charges::Fees->new( |
| 1341 |
{ |
1341 |
{ |
| 1342 |
patron => $patron, |
1342 |
patron => $patron, |
| 1343 |
library => $library, |
1343 |
library => $library, |
|
Lines 2907-2913
sub AddRenewal {
Link Here
|
| 2907 |
} |
2907 |
} |
| 2908 |
|
2908 |
|
| 2909 |
|
2909 |
|
| 2910 |
my $fees = Koha::Fees->new( |
2910 |
my $fees = Koha::Charges::Fees->new( |
| 2911 |
{ |
2911 |
{ |
| 2912 |
patron => $patron, |
2912 |
patron => $patron, |
| 2913 |
library => $library, |
2913 |
library => $library, |