Lines 50-56
This method allows payments to be made against fees/fines
Link Here
|
50 |
Koha::Account->new( { patron_id => $borrowernumber } )->pay( |
50 |
Koha::Account->new( { patron_id => $borrowernumber } )->pay( |
51 |
{ |
51 |
{ |
52 |
amount => $amount, |
52 |
amount => $amount, |
53 |
sip => $sipmode, |
53 |
mode => $mode, |
54 |
note => $note, |
54 |
note => $note, |
55 |
library_id => $branchcode, |
55 |
library_id => $branchcode, |
56 |
lines => $lines, # Arrayref of Koha::Account::Line objects to pay |
56 |
lines => $lines, # Arrayref of Koha::Account::Line objects to pay |
Lines 63-69
sub pay {
Link Here
|
63 |
my ( $self, $params ) = @_; |
63 |
my ( $self, $params ) = @_; |
64 |
|
64 |
|
65 |
my $amount = $params->{amount}; |
65 |
my $amount = $params->{amount}; |
66 |
my $sip = $params->{sip}; |
66 |
my $mode = $params->{mode}; |
67 |
my $note = $params->{note} || q{}; |
67 |
my $note = $params->{note} || q{}; |
68 |
my $library_id = $params->{library_id}; |
68 |
my $library_id = $params->{library_id}; |
69 |
my $lines = $params->{lines}; |
69 |
my $lines = $params->{lines}; |
Lines 176-182
sub pay {
Link Here
|
176 |
|
176 |
|
177 |
my $account_type = |
177 |
my $account_type = |
178 |
$type eq 'writeoff' ? 'W' |
178 |
$type eq 'writeoff' ? 'W' |
179 |
: defined($sip) ? "Pay$sip" |
179 |
: defined($mode) ? "Pay$mode" |
180 |
: 'Pay'; |
180 |
: 'Pay'; |
181 |
|
181 |
|
182 |
my $description = $type eq 'writeoff' ? 'Writeoff' : q{}; |
182 |
my $description = $type eq 'writeoff' ? 'Writeoff' : q{}; |