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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-02-24 21:06:05 -0500 (Tue, 24 Feb 2009)
New Revision: 12287

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
autocreate checkout/checkin trigger events

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-02-24 21:29:45 UTC (rev 12286)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-02-25 02:06:05 UTC (rev 12287)
@@ -247,6 +247,7 @@
             if $circulator->notify_hold;
         $circulator->retarget_holds if $circulator->retarget;
         $circulator->append_reading_list;
+        $circulator->make_trigger_events;
     }
 }
 
@@ -1990,7 +1991,7 @@
 }
 
 sub retarget_holds {
-    $logger->info("retargeting prev_check_time=null holds after opportunistic capture");
+    $logger->info("circulator: retargeting prev_check_time=null holds after opportunistic capture");
     my $ses = OpenSRF::AppSession->create('open-ils.storage');
     $ses->request('open-ils.storage.action.hold_request.copy_targeter');
     # no reason to wait for the return value
@@ -2424,4 +2425,14 @@
 }
 
 
+sub make_trigger_events {
+    my $self = shift;
+    return unless $self->circ;
+    my $ses = OpenSRF::AppSession->create('open-ils.trigger');
+    $ses->request('open-ils.trigger.event.autocreate', $self->circ, 'checkout', $self->circ_lib) if $self->is_checkout;
+    $ses->request('open-ils.trigger.event.autocreate', $self->circ, 'checkin', $self->circ_lib) if $self->is_checkin;
+    # ignore response
+}
 
+
+