% if ($filter)
% {
% my $section = $keeper->get_section_by_id($filter);
% if (ref ($section))
% {
В качестве фильтра может выступать любая секция. Если фильтр установлен, то во всех списках и результатах поисков будут показаны только те документы, которые входят, в том числе, и в секцию фильтра
% }
% }
Вы находитесь:
<%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++;
}
%perl>
<%ARGS>
$sect_id => 1
%ARGS>
<%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');
%INIT>