--- nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/01/19 02:14:11	1.2
+++ nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/02/11 05:17:24	1.4
@@ -1,14 +1,19 @@
-##    --------------------------------------------------------------------------------
-##    $Id: Files.pm,v 1.2 2003/01/19 02:14:11 joko Exp $
-##    --------------------------------------------------------------------------------
+##    ------------------------------------------------------------------------
+##    $Id: Files.pm,v 1.4 2003/02/11 05:17:24 joko Exp $
+##    ------------------------------------------------------------------------
 ##    $Log: Files.pm,v $
+##    Revision 1.4  2003/02/11 05:17:24  joko
+##    + fix: childnode metadata now gets set propery
+##
+##    Revision 1.3  2003/01/19 03:15:43  joko
+##    + modified header
+##
 ##    Revision 1.2  2003/01/19 02:14:11  joko
 ##    + proposal for more abstract filesystem-query-interface
 ##
 ##    Revision 1.1  2002/12/03 15:52:53  joko
 ##    + initial check-in
-##
-##    --------------------------------------------------------------------------------
+##    ------------------------------------------------------------------------
 
 
 package Data::Storage::Handler::Files;
@@ -46,6 +51,8 @@
   #print "======\n";
   $logger->debug( __PACKAGE__ . "->getChildNodes()" );
   #print Dumper($self->{locator});
+  my @keys = keys %{$self->{locator}->{files}};
+  $self->{meta}->{childnodes} = \@keys;
   return $self->{locator}->{files};
 }