1 |
## -------------------------------------------------------------------------------- |
## ------------------------------------------------------------------------ |
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 |
9 |
|
## + modified header |
10 |
|
## |
11 |
## Revision 1.2 2003/01/19 02:14:11 joko |
## Revision 1.2 2003/01/19 02:14:11 joko |
12 |
## + proposal for more abstract filesystem-query-interface |
## + proposal for more abstract filesystem-query-interface |
13 |
## |
## |
14 |
## Revision 1.1 2002/12/03 15:52:53 joko |
## Revision 1.1 2002/12/03 15:52:53 joko |
15 |
## + initial check-in |
## + initial check-in |
16 |
## |
## ------------------------------------------------------------------------ |
|
## -------------------------------------------------------------------------------- |
|
17 |
|
|
18 |
|
|
19 |
package Data::Storage::Handler::Files; |
package Data::Storage::Handler::Files; |
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 |
|
|