/[cvs]/nfo/perl/libs/Data/Storage/Handler/Files.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Handler/Files.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by joko, Sun Jan 19 03:15:43 2003 UTC revision 1.4 by joko, Tue Feb 11 05:17:24 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 48  sub getChildNodes { Line 51  sub getChildNodes {
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    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed