--- nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2003/01/30 22:27:05	1.13
+++ nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2003/02/09 05:12:28	1.14
@@ -1,7 +1,10 @@
 ##    ------------------------------------------------------------------------
-##    $Id: Abstract.pm,v 1.13 2003/01/30 22:27:05 joko Exp $
+##    $Id: Abstract.pm,v 1.14 2003/02/09 05:12:28 joko Exp $
 ##    ------------------------------------------------------------------------
 ##    $Log: Abstract.pm,v $
+##    Revision 1.14  2003/02/09 05:12:28  joko
+##    + quoting of strings used in sql-queries!
+##
 ##    Revision 1.13  2003/01/30 22:27:05  joko
 ##    + added new abstract methods
 ##
@@ -305,10 +308,23 @@
   sub existsChildNode {
     my $self = shift;
     my $nodename = shift;
-    #$nodename = 'TransactionRoutingTable';
-    $logger->debug( __PACKAGE__ . "->existsChildNode( nodename $nodename )" );
+
+    # TODO: don't use $self->{meta}->{childnodes} directly in here
+    # get it returned from $self->getChildNodes()!!!
+
+    $logger->debug( __PACKAGE__ . "->existsChildNode( nodename=$nodename )" );
     $self->getChildNodes() unless $self->{meta}->{childnodes};
-    my $result = grep(m/$nodename/i, @{$self->{meta}->{childnodes}});     # TODO: use "/i" only on win32-systems!
+
+    # quote this, it might contain meta characters which don't work in a regex
+      $nodename = quotemeta($nodename);
+
+    # trace
+      #print Dumper($self->{meta});
+      #print "nodename: $nodename", "\n";
+    
+    # FIXME: use "/i" only on win32-systems!
+    my $result = grep(m/$nodename/i, @{$self->{meta}->{childnodes}});
+    
     return $result;
   }