| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch
