From 40f2dbeb7b4a1a8f2a1a70f3872ebd829e973d0b Mon Sep 17 00:00:00 2001 From: Remington Steed Date: Wed, 18 Jun 2014 09:34:13 -0400 Subject: [PATCH] LP 1198465: Account for overdues voided the old way The code for the particular case of "void"-overdues-for-lost is incomplete. This is the one case in the new code where it now always adjusts rather than voids, but the new restore code still needs to recognize cases where the voiding happened under the old code. Signed-off-by: Remington Steed --- .../src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm | 2 +- .../src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm | 12 +++++++++++- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm index b4b971bbae..caf2da13f4 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm @@ -658,7 +658,7 @@ sub bill_payment_map_for_xact { # find all bills in order my $bill_search = [ - {xact => $xact->id()}, + { xact => $xact->id(), voided => 'f' }, { order_by => { mb => { billing_ts => { direction => 'asc' } } } }, ]; diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm index 9739842dd2..c842012d8a 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm @@ -4019,13 +4019,23 @@ sub checkin_handle_lost_or_lo_now_found_restore_od { if ($ods && @$ods) { my $void_amount = 0; my $void_max = $self->circ->max_fine(); + # search for overdues voided the new way (aka "adjusted") my @billings = map {$_->id()} @$ods; my $voids = $self->editor->search_money_adjustment_payment( { billing => \@billings } ); - map {$void_amount += $_->amount()} @$voids; + if (@$voids) { + map {$void_amount += $_->amount()} @$voids; + } else { + # if no adjustments found, assume they were voided the old way (aka "voided") + for my $bill (@$ods) { + if( $U->is_true($bill->voided) ) { + $void_amount += $bill->amount(); + } + } + } $CC->create_bill( $self->editor, ($void_amount < $void_max ? $void_amount : $void_max), -- 2.11.0