the Perl UUID module is not easily installed nor does it appear to be maintained...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@13982 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/extras/Makefile.install b/Open-ILS/src/extras/Makefile.install
index b8d6415..559161c 100644 (file)
--- a/Open-ILS/src/extras/Makefile.install
+++ b/Open-ILS/src/extras/Makefile.install
@@ -101,8 +101,7 @@ DEBS =  \
        libtext-csv-perl\
        libtext-csv-perl\
        libuniversal-require-perl\
-       libunix-syslog-perl\
-       libuuid-perl
+       libunix-syslog-perl
 
 # Debian Lenny and Ubuntu Intrepid bundle recent versions of yaz
 EXTRA_DEBS = \
@@ -214,6 +213,7 @@ DEB_APACHE_DISMODS = \
 CPAN_MODULES = \
     Business::CreditCard::Object \
     Net::Z3950::Simple2ZOOM \
+       UUID::Tiny \
     SRU
 
 # Intrepid and Lenny have libmarc-charset-perl, libmarc-xml-perl, libnet-z3950-zoom-perl

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
index b83b177..8d254bd 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
@@ -13,7 +13,7 @@ use OpenILS::Utils::CStoreEditor;
 use OpenILS::Const qw/:const/;
 use Unicode::Normalize;
 use OpenSRF::Utils::SettingsClient;
-use UUID;
+use UUID::Tiny;
 
 # ---------------------------------------------------------------------------
 # Pile of utilty methods used accross applications.
@@ -1519,11 +1519,7 @@ sub create_trigger_event {
 }
 
 sub create_uuid_string {
-    my $uuid;
-    my $uuidstr;
-    UUID::generate($uuid);
-    UUID::unparse($uuid, $uuidstr);
-    return $uuidstr;
+    return create_UUID_as_string();
 }
 
 1;