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 |
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 |
|
|
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 |
|
|