3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.6 2002/12/01 04:46:01 joko |
7 |
|
# + sub eraseAll |
8 |
|
# |
9 |
# Revision 1.5 2002/11/29 05:00:26 joko |
# Revision 1.5 2002/11/29 05:00:26 joko |
10 |
# + sub getListUnfiltered |
# + sub getListUnfiltered |
11 |
# + sub sendQuery |
# + sub sendQuery |
185 |
return $self->sendCommand($sql); |
return $self->sendCommand($sql); |
186 |
} |
} |
187 |
|
|
188 |
|
sub eraseAll { |
189 |
|
my $self = shift; |
190 |
|
my $classname = shift; |
191 |
|
my $sql = "DELETE FROM $classname"; |
192 |
|
$self->sendCommand($sql); |
193 |
|
} |
194 |
|
|
195 |
1; |
1; |