No subject
Thu May 28 17:10:26 EDT 2009
Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm 2010-04-01 19:21:01 UTC (rev 16094)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm 2010-04-01 19:54:19 UTC (rev 16095)
@@ -2519,17 +2519,13 @@
$mgr->{post_commit} = [];
}
push @{ $mgr->{post_commit} }, sub {
- my $trigger_ses = OpenSRF::AppSession->create('open-ils.trigger');
- $trigger_ses->connect;
my $home_ou = $cached_usr_home_ou{$hold->usr};
if (! $home_ou) {
my $user = $mgr->editor->retrieve_actor_user($hold->usr); # FIXME: how do we want to handle failures here?
$home_ou = $user->home_ou;
$cached_usr_home_ou{$hold->usr} = $home_ou;
}
- my $trigger_req = $trigger_ses->request('open-ils.trigger.event.autocreate', 'hold_request.cancel.cancelled_order', $hold, $home_ou);
- $trigger_req->recv;
- $trigger_ses->disconnect;
+ $U->create_events_for_hook('hold_request.cancel.cancelled_order', $hold, $home_ou);
};
}
}
More information about the open-ils-commits
mailing list