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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-23 10:01:25 -0400 (Tue, 23 Jun 2009)
New Revision: 13440

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
added a shortcut for calling trigger autocreate.  added a UUID string generator

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-06-23 13:01:26 UTC (rev 13439)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-06-23 14:01:25 UTC (rev 13440)
@@ -13,6 +13,7 @@
 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 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;