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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-10-21 11:24:39 -0400 (Wed, 21 Oct 2009)
New Revision: 14528

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
Log:
added logic to mark items missing during the claims-return process

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-10-21 15:13:57 UTC (rev 14527)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-10-21 15:24:39 UTC (rev 14528)
@@ -357,6 +357,17 @@
 
     $e->update_action_circulation($circ) or return $e->die_event;
     $e->commit;
+
+
+    # see if we need to also mark the copy as missing
+    if($U->ou_ancestor_setting_value($circ->circ_lib, 'circ.claim_return.mark_missing')) {
+	    return $apputils->simplereq(
+		    'open-ils.circ',
+            'open-ils.circ.mark_item_missing',
+            $auth, $copy->id
+        );
+    }
+
     return 1;
 }