--- nfo/perl/libs/Data/Storage/Handler/DBI.pm	2002/12/05 07:58:20	1.9
+++ nfo/perl/libs/Data/Storage/Handler/DBI.pm	2002/12/15 02:02:22	1.10
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: DBI.pm,v 1.9 2002/12/05 07:58:20 joko Exp $
+#  $Id: DBI.pm,v 1.10 2002/12/15 02:02:22 joko Exp $
 #
 #  $Log: DBI.pm,v $
+#  Revision 1.10  2002/12/15 02:02:22  joko
+#  + fixed logging-message
+#
 #  Revision 1.9  2002/12/05 07:58:20  joko
 #  + now using Tie::SecureHash as a base for the COREHANDLE
 #  + former public COREHANDLE becomes private _COREHANDLE now
@@ -183,6 +186,9 @@
 sub sendQuery {
   my $self = shift;
   my $query = shift;
+
+  $logger->debug( __PACKAGE__ . "->sendQuery" );
+
   #my $sql = "SELECT cs FROM $self->{metainfo}->{$descent}->{node} WHERE $self->{metainfo}->{$descent}->{IdentProvider}->{arg}='$self->{entry}->{source}->{ident}';";
   #my $result = $self->{metainfo}->{$descent}->{storage}->sendCommand($sql);
   my @crits;
@@ -202,6 +208,7 @@
 sub eraseAll {
   my $self = shift;
   my $classname = shift;
+  $logger->debug( __PACKAGE__ . "->eraseAll" );
   my $sql = "DELETE FROM $classname";
   $self->sendCommand($sql);
 }