[open-ils-commits] r14887 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-11-12 17:11:29 -0500 (Thu, 12 Nov 2009)
New Revision: 14887

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
Log:
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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-11-12 22:03:56 UTC (rev 14886)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-11-12 22:11:29 UTC (rev 14887)
@@ -303,9 +303,6 @@
     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 @@
         {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);