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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-06 16:49:21 -0500 (Fri, 06 Mar 2009)
New Revision: 12456

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm
Log:
plugged in lost event creation

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm	2009-03-06 21:44:25 UTC (rev 12455)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm	2009-03-06 21:49:21 UTC (rev 12456)
@@ -472,5 +472,8 @@
     my $evt = OpenILS::Application::Circ::CircCommon->reopen_xact($e, $circ->id);
     return $evt if $evt;
 
+    my $ses = OpenSRF::AppSession->create('open-ils.trigger');
+    $ses->request('open-ils.trigger.event.autocreate', 'lost', $circ, $circ->circ_lib);
+
     return undef;
 }