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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-23 12:34:40 -0400 (Thu, 23 Apr 2009)
New Revision: 12974

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
plug in the event creation for the hold.available hook.  (note, hold.capture is different since transit may be required)

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-04-23 14:28:45 UTC (rev 12973)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-04-23 16:34:40 UTC (rev 12974)
@@ -1965,6 +1965,12 @@
 sub do_hold_notify {
     my( $self, $holdid ) = @_;
 
+    my $e = new_editor(xact => 1);
+    my $hold = $e->retrieve_action_hold_request($holdid) or return $e->die_event;
+    $e->rollback;
+    my $ses = OpenSRF::AppSession->create('open-ils.trigger');
+    $ses->request('open-ils.trigger.event.autocreate', 'hold.available', $hold, $hold->pickup_lib);
+
     $logger->info("circulator: running delayed hold notify process");
 
 #   my $notifier = OpenILS::Application::Circ::HoldNotify->new(