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 |
description => $description, |
55 |
description => $description, |
56 |
library_id => $branchcode, |
56 |
library_id => $branchcode, |
Lines 65-72
Koha::Account->new( { patron_id => $borrowernumber } )->pay(
Link Here
|
65 |
sub pay { |
65 |
sub pay { |
66 |
my ( $self, $params ) = @_; |
66 |
my ( $self, $params ) = @_; |
67 |
|
67 |
|
68 |
my $amount = $params->{amount}; |
68 |
my $amount = $params->{amount}; |
69 |
my $sip = $params->{sip}; |
69 |
my $mode = $params->{mode}; |
70 |
my $description = $params->{description}; |
70 |
my $description = $params->{description}; |
71 |
my $note = $params->{note} || q{}; |
71 |
my $note = $params->{note} || q{}; |
72 |
my $library_id = $params->{library_id}; |
72 |
my $library_id = $params->{library_id}; |
Lines 202-208
sub pay {
Link Here
|
202 |
|
202 |
|
203 |
$account_type ||= |
203 |
$account_type ||= |
204 |
$type eq 'writeoff' ? 'W' |
204 |
$type eq 'writeoff' ? 'W' |
205 |
: defined($sip) ? "Pay$sip" |
205 |
: defined($mode) ? "Pay$mode" |
206 |
: 'Pay'; |
206 |
: 'Pay'; |
207 |
|
207 |
|
208 |
$description ||= $type eq 'writeoff' ? 'Writeoff' : q{}; |
208 |
$description ||= $type eq 'writeoff' ? 'Writeoff' : q{}; |