From 9164535ddb8b05db60fa245bcf76a01574390cbe Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 18 May 2007 17:03:14 +0000 Subject: [PATCH] forward-porting stable fix to claims return logic git-svn-id: svn://svn.open-ils.org/ILS/trunk@7333 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm index c17c8839fd..c57f9a6ff6 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm @@ -416,7 +416,8 @@ sub set_circ_claims_returned { my $barcode = $$args{barcode}; my $backdate = $$args{backdate}; - $logger->info("marking circ for item $barcode as claims returned"); + $logger->info("marking circ for item $barcode as claims returned". + (($backdate) ? " with backdate $backdate" : '')); my $copy = $e->search_asset_copy({barcode=>$barcode, deleted=>'f'})->[0] or return $e->die_event; @@ -430,7 +431,6 @@ sub set_circ_claims_returned { $circ->stop_fines(OILS_STOP_FINES_CLAIMSRETURNED); $circ->stop_fines_time('now') unless $circ->stop_fines_time; - $e->update_action_circulation($circ) or return $e->die_event; if( $backdate ) { # make it look like the circ stopped at the cliams returned time @@ -439,6 +439,7 @@ sub set_circ_claims_returned { return $evt if $evt; } + $e->update_action_circulation($circ) or return $e->die_event; $e->commit; return 1; } -- 2.11.0