From e87b9d41168fa3ca8fc1d77820491d97e71e3eed Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 23 Jun 2009 14:01:25 +0000 Subject: [PATCH] added a shortcut for calling trigger autocreate. added a UUID string generator git-svn-id: svn://svn.open-ils.org/ILS/trunk@13440 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm index fa90b46269..07385cd5e3 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm @@ -13,6 +13,7 @@ use OpenILS::Utils::CStoreEditor; use OpenILS::Const qw/:const/; use Unicode::Normalize; use OpenSRF::Utils::SettingsClient; +use UUID; # --------------------------------------------------------------------------- # Pile of utilty methods used accross applications. @@ -1521,5 +1522,19 @@ sub fire_object_event { } +sub create_trigger_event { + my($self, $hook, $obj, $org_id) = @_ + my $ses = OpenSRF::AppSession->create('open-ils.trigger'); + $ses->request('open-ils.trigger.event.autocreate', $hook, $obj, $org_id); +} + +sub create_uuid_string { + my $uuid; + my $uuidstr; + UUID::generate($uuid); + UUID::unparse($uuid, $uuidstr); + return $uuidstr; +} + 1; -- 2.11.0