autocreate checkout/checkin trigger events

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12287 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index f0fb799..bfa6847 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -247,6 +247,7 @@ sub run_method {
             if $circulator->notify_hold;
         $circulator->retarget_holds if $circulator->retarget;
         $circulator->append_reading_list;
+        $circulator->make_trigger_events;
     }
 }
 
@@ -1990,7 +1991,7 @@ sub do_hold_notify {
 }
 
 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 append_reading_list {
 }
 
 
+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
+}
+
+