2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.4 2003/02/11 05:17:24 joko |
6 |
|
## + fix: childnode metadata now gets set propery |
7 |
|
## |
8 |
## Revision 1.3 2003/01/19 03:15:43 joko |
## Revision 1.3 2003/01/19 03:15:43 joko |
9 |
## + modified header |
## + modified header |
10 |
## |
## |
51 |
#print "======\n"; |
#print "======\n"; |
52 |
$logger->debug( __PACKAGE__ . "->getChildNodes()" ); |
$logger->debug( __PACKAGE__ . "->getChildNodes()" ); |
53 |
#print Dumper($self->{locator}); |
#print Dumper($self->{locator}); |
54 |
|
my @keys = keys %{$self->{locator}->{files}}; |
55 |
|
$self->{meta}->{childnodes} = \@keys; |
56 |
return $self->{locator}->{files}; |
return $self->{locator}->{files}; |
57 |
} |
} |
58 |
|
|