|
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{}; |