% if ($id) % { [root] /\ % my $node_id = $keeper->get_section_by_id( $id ); % my @path = $node_id->trace(); % my ($cur) = splice( @path, -1 ); % my $node_cur = $keeper->get_section_by_id( $cur ); % map { % my $child = $keeper->get_section_by_id ($_); % $m->out( '.. /' ) % } @path; <% $node_cur->name %>: % } else { [root] % } % foreach my $kid (@kids) % { % my $child = $keeper->get_section_by_id($kid); % } % foreach my $object (@objects) % { % my $obj_name_escaped = $object->name; % $obj_name_escaped =~ s/"/"/g; % }

	<% $child->name %>
	<% $object->name %>

<%args> $id => 0 $classes => undef <%init> warn "$id -> $classes\n"; use vars qw($keeper); my $node = $keeper->get_section_by_id( $id || $Contenido::Section::ROOT || 1 ); my @kids = $node->childs(); my %opts = ( 's' => $id || $Contenido::Section::ROOT || 1, 'order' => ['date','direct'], ); if (length($classes) > 0) { $opts{class} = $classes; } my @objects = $keeper->get_documents(%opts);