[open-ils-commits] r14887 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)
svn at svn.open-ils.org
svn at svn.open-ils.org
Thu Nov 12 17:11:35 EST 2009
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);
More information about the open-ils-commits
mailing list