Lines 24-30
use Data::Dumper;
Link Here
|
24 |
use List::MoreUtils qw( uniq ); |
24 |
use List::MoreUtils qw( uniq ); |
25 |
use Try::Tiny; |
25 |
use Try::Tiny; |
26 |
|
26 |
|
27 |
use C4::Circulation qw( ReturnLostItem ); |
|
|
28 |
use C4::Letters; |
27 |
use C4::Letters; |
29 |
use C4::Log qw( logaction ); |
28 |
use C4::Log qw( logaction ); |
30 |
use C4::Stats qw( UpdateStats ); |
29 |
use C4::Stats qw( UpdateStats ); |
Lines 114-128
sub pay {
Link Here
|
114 |
$fine->amountoutstanding($new_amountoutstanding)->store(); |
113 |
$fine->amountoutstanding($new_amountoutstanding)->store(); |
115 |
$balance_remaining = $balance_remaining - $amount_to_pay; |
114 |
$balance_remaining = $balance_remaining - $amount_to_pay; |
116 |
|
115 |
|
117 |
# Same logic exists in Koha::Account::Line::apply |
|
|
118 |
if ( $new_amountoutstanding == 0 |
119 |
&& $fine->itemnumber |
120 |
&& $fine->debit_type_code |
121 |
&& ( $fine->debit_type_code eq 'LOST' ) ) |
122 |
{ |
123 |
C4::Circulation::ReturnLostItem( $self->{patron_id}, $fine->itemnumber ); |
124 |
} |
125 |
|
126 |
my $account_offset = Koha::Account::Offset->new( |
116 |
my $account_offset = Koha::Account::Offset->new( |
127 |
{ |
117 |
{ |
128 |
debit_id => $fine->id, |
118 |
debit_id => $fine->id, |
Lines 174-187
sub pay {
Link Here
|
174 |
$fine->amountoutstanding( $old_amountoutstanding - $amount_to_pay ); |
164 |
$fine->amountoutstanding( $old_amountoutstanding - $amount_to_pay ); |
175 |
$fine->store(); |
165 |
$fine->store(); |
176 |
|
166 |
|
177 |
if ( $fine->amountoutstanding == 0 |
|
|
178 |
&& $fine->itemnumber |
179 |
&& $fine->debit_type_code |
180 |
&& ( $fine->debit_type_code eq 'LOST' ) ) |
181 |
{ |
182 |
C4::Circulation::ReturnLostItem( $self->{patron_id}, $fine->itemnumber ); |
183 |
} |
184 |
|
185 |
my $account_offset = Koha::Account::Offset->new( |
167 |
my $account_offset = Koha::Account::Offset->new( |
186 |
{ |
168 |
{ |
187 |
debit_id => $fine->id, |
169 |
debit_id => $fine->id, |