From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 25 Feb 2009 02:06:05 +0000 (+0000)
Subject: autocreate checkout/checkin trigger events
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=f456a0fa6fe92b25d6419d23ffb287da0e7d2d52;p=evergreen%2Ftadl.git

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 f0fb7999f5..bfa6847a66 100644
--- 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
+}
+
+