From 749e63f4716485dea1f6e120da4675d8fd5f0c56 Mon Sep 17 00:00:00 2001 From: Dan Wells Date: Fri, 20 Feb 2015 17:28:44 -0500 Subject: [PATCH] LP#1443952 Move overdue restore above lost void/adjustment If a person loses something and has their overdues voided/zeroed, 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 Signed-off-by: Ben Shum --- .../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 7a330b2c95..c0e68cdfed 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm @@ -3594,12 +3594,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.43.2