added flag to mark claims returned which tells the code to use the circ due date...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14887 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
index df95ffd..163ce37 100644 (file)
--- 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);