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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
index fa90b46..07385cd 100644 (file)
--- 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;