% if ($filter) % { % my $section = $keeper->get_section_by_id($filter); % if (ref ($section)) % {

Фильтр: <% $section->name() %>   (x) снять фильтр

В качестве фильтра может выступать любая секция. Если фильтр установлен, то во всех списках и результатах поисков будут показаны только те документы, которые входят, в том числе, и в секцию фильтра
% } % }
Вы находитесь:  <%perl> my @path = $sect->trace(); my $i = 0; foreach my $p (@path) { my $step = $keeper->get_section_by_id($p); $m->out("{id}\">$step->{name}"); if ($i < scalar(@path) - 1) { $m->out(" >> "); } $i++; }
<%ARGS> $sect_id => 1 <%INIT> use vars qw($keeper $state $project); my $sect = $keeper->get_section_by_id($sect_id); my $filter = $m->comp('/contenido/components/context.msn', name => 'filter'); my $profile = $m->comp('/contenido/components/context.msn', name => 'profile');