From 76ed91eaf8e2b97e95cd47f78396fa6def3cbdc4 Mon Sep 17 00:00:00 2001 From: Dan Wells Date: Fri, 20 Feb 2015 17:28:44 -0500 Subject: [PATCH] LP 1198465: Move overdue restore above lost void/adjustment If a person loses something and has their overdues adjusted to zero, then pays for part of it, then returns the item, the part they actually paid should apply to the overdues. In order for this to happen, the overdues must exist *before* the lost fines are adjusted. Signed-off-by: Dan Wells --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 76f70ea08b..9427a2dfab 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm @@ -3590,12 +3590,12 @@ sub checkin_handle_lost_or_longoverdue { my $restore_od = $U->ou_ancestor_setting_value( $circ_lib, $args{ous_restore_overdue}, $self->editor) || 0; + $self->checkin_handle_lost_or_lo_now_found_restore_od($circ_lib) + if $restore_od && ! $self->void_overdues; $self->checkin_handle_lost_or_lo_now_found( $args{void_cost_btype}, $args{is_longoverdue}) if ($void_cost); $self->checkin_handle_lost_or_lo_now_found( $args{void_fee_btype}, $args{is_longoverdue}) if ($void_proc_fee); - $self->checkin_handle_lost_or_lo_now_found_restore_od($circ_lib) - if $restore_od && ! $self->void_overdues; } if ($circ_lib != $self->circ_lib) { -- 2.11.0