--- nfo/perl/libs/Tangram/Storage.pm	2002/12/16 05:08:22	1.3
+++ nfo/perl/libs/Tangram/Storage.pm	2002/12/19 16:37:54	1.7
@@ -247,6 +247,33 @@
     return sprintf "%d%0$self->{cid_size}d", $id, $class_id;
   }
 
+
+# create global unique identifers using Data::UUID
+sub make_guid 
+  {
+    my $self = shift;
+
+    my $guid;
+
+    # try to use Data::UUID first ...
+    eval("use Data::UUID;");
+    if (!$@) {
+      my $ug = Data::UUID->new();
+      $guid = $ug->create_str();
+      
+    # ... if this fails, try to fallback to Data::UUID::PurePerl instead ...
+    } else {
+      eval("use Data::UUID::PurePerl;");
+      if (!$@) {
+        $guid = Data::UUID::PurePerl::generate_id();
+      } else {
+        croak "couldn't create globally unique identifier";
+      }
+    }
+    
+    return $guid;
+  }
+
 sub make_1st_id_in_tx
   {
     my ($self) = @_;
@@ -455,6 +482,9 @@
     return $self->id($obj)
       if $self->id($obj);
 
+  	# insert global unique identifier in object to persist across re-deploys 
+	  $obj->{guid} = $self->make_guid();
+	
     $saving->insert($obj);
 
     my $class_name = ref $obj;
@@ -484,7 +514,7 @@
 
 	  if ($Tangram::TRACE) {
 		printf $Tangram::TRACE "executing %s with (%s)\n",
-		$cache->{INSERTS}[$i],
+		$cache->{INSERTS}[$i], 
 		join(', ', map { $_ || 'NULL' } @state[ @{ $fields->[$i] } ] )
 	  }