3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.10 2002/12/03 15:53:23 joko |
7 |
|
# + small bugfix regarding object hierarchy |
8 |
|
# |
9 |
# Revision 1.9 2002/12/03 05:29:40 joko |
# Revision 1.9 2002/12/03 05:29:40 joko |
10 |
# + sub getObject |
# + sub getObject |
11 |
# + sub getObjectAsHash |
# + sub getObjectAsHash |
456 |
sub eraseAll { |
sub eraseAll { |
457 |
my $self = shift; |
my $self = shift; |
458 |
my $classname = shift; |
my $classname = shift; |
459 |
my $remote = $self->{storage}->remote($classname); |
my $remote = $self->{COREHANDLE}->remote($classname); |
460 |
my @objs = $self->{storage}->select($remote); |
my @objs = $self->{COREHANDLE}->select($remote); |
461 |
$self->{COREHANDLE}->erase(@objs); |
$self->{COREHANDLE}->erase(@objs); |
462 |
} |
} |
463 |
|
|