--- nfo/perl/libs/Tangram/Storage.pm	2002/12/16 05:05:31	1.2
+++ nfo/perl/libs/Tangram/Storage.pm	2002/12/16 05:08:22	1.3
@@ -247,19 +247,6 @@
     return sprintf "%d%0$self->{cid_size}d", $id, $class_id;
   }
 
-
-# create global unique identifers using Data::UUID
-sub make_guid 
-  {
-    my $self = shift;
-
-    eval ("use Data::UUID;");
-    my $ug = Data::UUID->new();
-    my $guid = $ug->create_str();
-    
-    return $guid;
-  }
-
 sub make_1st_id_in_tx
   {
     my ($self) = @_;
@@ -468,13 +455,6 @@
     return $self->id($obj)
       if $self->id($obj);
 
-	# insert global unique identifier in object to persist across re-deploys 
-	$obj->{guid} = $self->make_guid();
-
-  # debug
-  use Data::Dumper;
-	print Dumper($obj);
-	
     $saving->insert($obj);
 
     my $class_name = ref $obj;
@@ -504,7 +484,7 @@
 
 	  if ($Tangram::TRACE) {
 		printf $Tangram::TRACE "executing %s with (%s)\n",
-		$cache->{INSERTS}[$i], 
+		$cache->{INSERTS}[$i],
 		join(', ', map { $_ || 'NULL' } @state[ @{ $fields->[$i] } ] )
 	  }