--- nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/01/19 03:15:43	1.3
+++ nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/02/11 05:17:24	1.4
@@ -1,7 +1,10 @@
 ##    ------------------------------------------------------------------------
-##    $Id: Files.pm,v 1.3 2003/01/19 03:15:43 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
 ##
@@ -48,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};
 }