View | Details | Raw Unified | Return to bug 21756
Collapse All | Expand All

(-)a/Koha/Patron.pm (-5 / +10 lines)
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
- 

Return to bug 21756