|
Lines 86-92
sub pay {
Link Here
|
| 86 |
|
86 |
|
| 87 |
my $userenv = C4::Context->userenv; |
87 |
my $userenv = C4::Context->userenv; |
| 88 |
|
88 |
|
| 89 |
|
|
|
| 90 |
my $manager_id = $userenv ? $userenv->{number} : undef; |
89 |
my $manager_id = $userenv ? $userenv->{number} : undef; |
| 91 |
my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface; |
90 |
my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface; |
| 92 |
my $payment = $self->payin_amount( |
91 |
my $payment = $self->payin_amount( |
|
Lines 105-110
sub pay {
Link Here
|
| 105 |
} |
104 |
} |
| 106 |
); |
105 |
); |
| 107 |
|
106 |
|
|
|
107 |
# NOTE: Pay historically always applied as much credit as it could to all |
| 108 |
# existing outstanding debits, whether passed specific debits or otherwise. |
| 109 |
if ( $payment->amountoutstanding ) { |
| 110 |
$payment = |
| 111 |
$payment->apply( |
| 112 |
{ debits => [ $self->outstanding_debits->as_list ] } ); |
| 113 |
} |
| 114 |
|
| 108 |
my $patron = Koha::Patrons->find( $self->{patron_id} ); |
115 |
my $patron = Koha::Patrons->find( $self->{patron_id} ); |
| 109 |
my @account_offsets = $payment->debit_offsets; |
116 |
my @account_offsets = $payment->debit_offsets; |
| 110 |
if ( C4::Context->preference('UseEmailReceipts') ) { |
117 |
if ( C4::Context->preference('UseEmailReceipts') ) { |
| 111 |
- |
|
|