From 27b4a16dddc98d0937432af06d78b88a5f932c02 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 12 Nov 2009 22:11:29 +0000 Subject: [PATCH] added flag to mark claims returned which tells the code to use the circ due date as the claims returned date. good for batch processing of claims return items git-svn-id: svn://svn.open-ils.org/ILS/trunk@14887 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm index df95ffd5a..163ce377b 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm @@ -303,9 +303,6 @@ sub set_circ_claims_returned { my $barcode = $$args{barcode}; my $backdate = $$args{backdate}; - $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; @@ -313,6 +310,11 @@ sub set_circ_claims_returned { {checkin_time => undef, target_copy => $copy->id})->[0] or return $e->die_event; + $backdate = $circ->due_date if $$args{use_due_date}; + + $logger->info("marking circ for item $barcode as claims returned". + (($backdate) ? " with backdate $backdate" : '')); + my $patron = $e->retrieve_actor_user($circ->usr); my $max_count = $U->ou_ancestor_setting_value( $circ->circ_lib, 'circ.max_patron_claim_return_count', $e); -- 2.11.0