3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.7 2002/12/01 07:09:09 joko |
7 |
|
# + sub getListFiltered (dummy redirecting to getListUnfiltered) |
8 |
|
# |
9 |
|
# Revision 1.6 2002/12/01 04:46:01 joko |
10 |
|
# + sub eraseAll |
11 |
|
# |
12 |
# Revision 1.5 2002/11/29 05:00:26 joko |
# Revision 1.5 2002/11/29 05:00:26 joko |
13 |
# + sub getListUnfiltered |
# + sub getListUnfiltered |
14 |
# + sub sendQuery |
# + sub sendQuery |
188 |
return $self->sendCommand($sql); |
return $self->sendCommand($sql); |
189 |
} |
} |
190 |
|
|
191 |
|
sub eraseAll { |
192 |
|
my $self = shift; |
193 |
|
my $classname = shift; |
194 |
|
my $sql = "DELETE FROM $classname"; |
195 |
|
$self->sendCommand($sql); |
196 |
|
} |
197 |
|
|
198 |
|
# TODO: actually implement the filtering functionality using $this->sendQuery |
199 |
|
sub getListFiltered { |
200 |
|
my $self = shift; |
201 |
|
my $nodename = shift; |
202 |
|
return $self->getListUnfiltered($nodename); |
203 |
|
} |
204 |
|
|
205 |
1; |
1; |