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

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

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

revision 1.9 by joko, Tue Dec 3 05:29:40 2002 UTC revision 1.11 by jonen, Wed Dec 4 08:54:08 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.11  2002/12/04 08:54:08  jonen
7    #  + untested bugfix: undef($object) after transform to hash at getObjectAsHash
8    #
9    #  Revision 1.10  2002/12/03 15:53:23  joko
10    #  + small bugfix regarding object hierarchy
11    #
12  #  Revision 1.9  2002/12/03 05:29:40  joko  #  Revision 1.9  2002/12/03 05:29:40  joko
13  #  + sub getObject  #  + sub getObject
14  #  + sub getObjectAsHash  #  + sub getObjectAsHash
# Line 453  sub sendQuery { Line 459  sub sendQuery {
459  sub eraseAll {  sub eraseAll {
460    my $self = shift;    my $self = shift;
461    my $classname = shift;    my $classname = shift;
462    my $remote = $self->{storage}->remote($classname);    my $remote = $self->{COREHANDLE}->remote($classname);
463    my @objs = $self->{storage}->select($remote);    my @objs = $self->{COREHANDLE}->select($remote);
464    $self->{COREHANDLE}->erase(@objs);    $self->{COREHANDLE}->erase(@objs);
465  }  }
466    
# Line 479  sub getObjectAsHash { Line 485  sub getObjectAsHash {
485    my $obj = $self->getObject($oid);    my $obj = $self->getObject($oid);
486    my $deref = var_deref($obj);    my $deref = var_deref($obj);
487    var2utf8($deref) if ($options->{utf8});    var2utf8($deref) if ($options->{utf8});
488      undef($obj) if($options->{destroy});
489    return $deref;    return $deref;
490  }  }
491    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed