/[cvs]/nfo/patches/cpan/Tangram/Storage.pm
ViewVC logotype

Diff of /nfo/patches/cpan/Tangram/Storage.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by jonen, Mon Dec 16 05:05:31 2002 UTC revision 1.3 by jonen, Mon Dec 16 05:08:22 2002 UTC
# Line 247  sub make_id Line 247  sub make_id
247      return sprintf "%d%0$self->{cid_size}d", $id, $class_id;      return sprintf "%d%0$self->{cid_size}d", $id, $class_id;
248    }    }
249    
   
 # 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;  
   }  
   
250  sub make_1st_id_in_tx  sub make_1st_id_in_tx
251    {    {
252      my ($self) = @_;      my ($self) = @_;
# Line 468  sub _insert Line 455  sub _insert
455      return $self->id($obj)      return $self->id($obj)
456        if $self->id($obj);        if $self->id($obj);
457    
         # insert global unique identifier in object to persist across re-deploys  
         $obj->{guid} = $self->make_guid();  
   
   # debug  
   use Data::Dumper;  
         print Dumper($obj);  
           
458      $saving->insert($obj);      $saving->insert($obj);
459    
460      my $class_name = ref $obj;      my $class_name = ref $obj;
# Line 504  sub _insert Line 484  sub _insert
484    
485            if ($Tangram::TRACE) {            if ($Tangram::TRACE) {
486                  printf $Tangram::TRACE "executing %s with (%s)\n",                  printf $Tangram::TRACE "executing %s with (%s)\n",
487                  $cache->{INSERTS}[$i],                  $cache->{INSERTS}[$i],
488                  join(', ', map { $_ || 'NULL' } @state[ @{ $fields->[$i] } ] )                  join(', ', map { $_ || 'NULL' } @state[ @{ $fields->[$i] } ] )
489            }            }
490    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed