/[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.4 by jonen, Mon Dec 16 05:14:43 2002 UTC revision 1.5 by jonen, Mon Dec 16 05:50:07 2002 UTC
# Line 468  sub _insert Line 468  sub _insert
468      return $self->id($obj)      return $self->id($obj)
469        if $self->id($obj);        if $self->id($obj);
470    
471          # insert global unique identifier in object to persist across re-deploys          # insert global unique identifier in object to persist across re-deploys
472          $obj->{guid} = $self->make_guid();            $obj->{guid} = $self->make_guid();
   
   # debug  
   use Data::Dumper;  
         print Dumper($obj);  
473                    
474      $saving->insert($obj);      $saving->insert($obj);
475    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed