Lines 25-31
use List::MoreUtils qw( uniq );
Link Here
|
25 |
use JSON qw( to_json ); |
25 |
use JSON qw( to_json ); |
26 |
use Text::Unaccent qw( unac_string ); |
26 |
use Text::Unaccent qw( unac_string ); |
27 |
|
27 |
|
28 |
use C4::Accounts; |
|
|
29 |
use C4::Context; |
28 |
use C4::Context; |
30 |
use C4::Log; |
29 |
use C4::Log; |
31 |
use Koha::AuthUtils; |
30 |
use Koha::AuthUtils; |
Lines 886-893
sub add_enrolment_fee_if_needed {
Link Here
|
886 |
my ($self) = @_; |
885 |
my ($self) = @_; |
887 |
my $enrolment_fee = $self->category->enrolmentfee; |
886 |
my $enrolment_fee = $self->category->enrolmentfee; |
888 |
if ( $enrolment_fee && $enrolment_fee > 0 ) { |
887 |
if ( $enrolment_fee && $enrolment_fee > 0 ) { |
889 |
# insert fee in patron debts |
888 |
$self->account->add_debit( |
890 |
C4::Accounts::manualinvoice( $self->borrowernumber, '', '', 'A', $enrolment_fee ); |
889 |
{ |
|
|
890 |
amount => $enrolment_fee, |
891 |
user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : 0, |
892 |
library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef, |
893 |
type => 'account' |
894 |
} |
895 |
); |
891 |
} |
896 |
} |
892 |
return $enrolment_fee || 0; |
897 |
return $enrolment_fee || 0; |
893 |
} |
898 |
} |
Lines 1333-1342
sub _type {
Link Here
|
1333 |
return 'Borrower'; |
1338 |
return 'Borrower'; |
1334 |
} |
1339 |
} |
1335 |
|
1340 |
|
1336 |
=head1 AUTHOR |
1341 |
=head1 AUTHORS |
1337 |
|
1342 |
|
1338 |
Kyle M Hall <kyle@bywatersolutions.com> |
1343 |
Kyle M Hall <kyle@bywatersolutions.com> |
1339 |
Alex Sassmannshausen <alex.sassmannshausen@ptfs-europe.com> |
1344 |
Alex Sassmannshausen <alex.sassmannshausen@ptfs-europe.com> |
|
|
1345 |
Martin Renvoize <martin.renvoize@ptfs-europe.com> |
1340 |
|
1346 |
|
1341 |
=cut |
1347 |
=cut |
1342 |
|
1348 |
|
1343 |
- |
|
|