3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.10 2002/12/15 02:02:22 joko |
7 |
|
# + fixed logging-message |
8 |
|
# |
9 |
# Revision 1.9 2002/12/05 07:58:20 joko |
# Revision 1.9 2002/12/05 07:58:20 joko |
10 |
# + now using Tie::SecureHash as a base for the COREHANDLE |
# + now using Tie::SecureHash as a base for the COREHANDLE |
11 |
# + former public COREHANDLE becomes private _COREHANDLE now |
# + former public COREHANDLE becomes private _COREHANDLE now |
186 |
sub sendQuery { |
sub sendQuery { |
187 |
my $self = shift; |
my $self = shift; |
188 |
my $query = shift; |
my $query = shift; |
189 |
|
|
190 |
|
$logger->debug( __PACKAGE__ . "->sendQuery" ); |
191 |
|
|
192 |
#my $sql = "SELECT cs FROM $self->{metainfo}->{$descent}->{node} WHERE $self->{metainfo}->{$descent}->{IdentProvider}->{arg}='$self->{entry}->{source}->{ident}';"; |
#my $sql = "SELECT cs FROM $self->{metainfo}->{$descent}->{node} WHERE $self->{metainfo}->{$descent}->{IdentProvider}->{arg}='$self->{entry}->{source}->{ident}';"; |
193 |
#my $result = $self->{metainfo}->{$descent}->{storage}->sendCommand($sql); |
#my $result = $self->{metainfo}->{$descent}->{storage}->sendCommand($sql); |
194 |
my @crits; |
my @crits; |
208 |
sub eraseAll { |
sub eraseAll { |
209 |
my $self = shift; |
my $self = shift; |
210 |
my $classname = shift; |
my $classname = shift; |
211 |
|
$logger->debug( __PACKAGE__ . "->eraseAll" ); |
212 |
my $sql = "DELETE FROM $classname"; |
my $sql = "DELETE FROM $classname"; |
213 |
$self->sendCommand($sql); |
$self->sendCommand($sql); |
214 |
} |
} |