<%shared>
my $options;
my $filters;
my 	%srchargs;
</%shared>
<%init>
#---------------------------------------------------------------------
# verificar opções de pesquisa
#---------------------------------------------------------------------
$options = $m->comp("/_shared/procs/get_searchoptions.m");
$filters = $m->comp('/_shared/procs/getfilters.m', srchargs=>$options);
#---------------------------------------------------------------------
# processar erros nas opções de pesquisa
#---------------------------------------------------------------------
if ($filters->{err}){

	%srchargs = ($m->top_args, %$options);
	$srchargs{err} = $filters->{err};
	$srchargs{zone} = $filters->{zone};
	$srchargs{zcod} = $filters->{zcod};
	$srchargs{zdsc} = $filters->{zdsc};
	$m->comp("/_shared/templates/search/results/header.html");
	$m->comp("/_shared/procs/filtererrors.m",srchargs=>\%srchargs,from=>'home');	
	$m->comp("/_shared/procs/showresultfooter.m",startrec=>-1, tnpt=>0, currrec=>0, recsinsel=>-1);
#---------------------------------------------------------------------
# ou mostrar homepage
#---------------------------------------------------------------------
}else{
	$m->comp("/_shared/templates/dirpage.html");
}
</%init>
%#---------------------------------------------------------------------
%# métodos
%#---------------------------------------------------------------------
<%method initvars>
<& PARENT:initvars, bspecs=>['THP', 0, 0], srchargs=>\%srchargs, options=>$options, filters=>$filters &>
</%method>