/[cvs]/nfo/perl/libs/Tangram/Storage.pm
ViewVC logotype

Diff of /nfo/perl/libs/Tangram/Storage.pm

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

revision 1.1 by jonen, Mon Dec 16 05:01:13 2002 UTC revision 1.6 by joko, Mon Dec 16 20:41:51 2002 UTC
# Line 254  sub make_guid Line 254  sub make_guid
254      my $self = shift;      my $self = shift;
255    
256      eval ("use Data::UUID;");      eval ("use Data::UUID;");
257        return if $@;
258      my $ug = Data::UUID->new();      my $ug = Data::UUID->new();
259      my $guid = $ug->create_str();      my $guid = $ug->create_str();
260            
# Line 468  sub _insert Line 469  sub _insert
469      return $self->id($obj)      return $self->id($obj)
470        if $self->id($obj);        if $self->id($obj);
471    
472          # insert global unique identifier in object to persist across re-deploys          # insert global unique identifier in object to persist across re-deploys
473          $obj->{guid} = $self->make_guid();            $obj->{guid} = $self->make_guid();
   
   # debug  
   use Data::Dumper;  
         print Dumper($obj);  
474                    
475      $saving->insert($obj);      $saving->insert($obj);
476    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed