<%shared>
my ($request,@req_args) = split (/\//, $m->dhandler_arg);
my ($bannerloc, $node, $title);
my %srchargs;
my $filters;
my $searchresults;
my $itemid;
my $options;
my $page;
</%shared>
<%args>
$ref=>undef;
$ref_lvl=>undef;
</%args>
<%method initvars>
<%init>
#---------------------------------------------------------------------
# determinar pedido virtual - inicialização
#---------------------------------------------------------------------
# request virtual
#---------------------------------------------------------------------
($request,@req_args) = split (/\//, $m->dhandler_arg);

#---------------------------------------------------------------------
# verificar opções de pesquisa
#---------------------------------------------------------------------
$options = $m->comp("/_shared/procs/get_searchoptions.m");
$filters = $m->comp('/_shared/procs/ne_getfilters.m', srchargs=>$options);
#---------------------------------------------------------------------
# hash parâmetros de pesquisa
#---------------------------------------------------------------------
%srchargs = ($m->top_args, %$options);
#---------------------------------------------------------------------
# actualizar parâmetros depois da validação dos filtros
#---------------------------------------------------------------------
$srchargs{zone} = $filters->{zone};
$srchargs{zcod} = $filters->{zcod};
$srchargs{zdsc} = $filters->{zdsc};


#---------------------------------------------------------------------
# novas empresas
#---------------------------------------------------------------------
if ($request eq 'ndir' || $request eq 'default.html'){ 
	
	
	$node = $req_args[0];
	
	if (!$node && $srchargs{ne_sector}){
		$node = $srchargs{ne_sector};
	}
	
	$node = 0 if !$node || $node eq 'home';
	$srchargs{'node'} = $node;
	
	if ($node){
		($itemid, $title) = $m->comp("/_shared/procs/getitemid.m",node=>$node, tipo_item=>'G');
		$srchargs{'qrcd'} = $itemid;
	}
	
	$searchresults = $m->comp("/_shared/procs/dosearchnovasempresas.m", srchargs=>\%srchargs, filters=>$filters, showresults=>0);
		
}
</%init>
<& PARENT:initvars, bspecs=>[$bannerloc, $node, 0], ptitle=>$title, srchargs=>\%srchargs, options=>$options, filters=>$filters  &>
</%method>
<%perl>
#---------------------------------------------------------------------
# servir pedido
#---------------------------------------------------------------------
# processar erros nas opções de pesquisa
#---------------------------------------------------------------------
if ($filters->{err}){

	$m->comp("/_shared/templates/search/results/header.html");
	$srchargs{err} = $filters->{err};
	my $from = 'ndir';
	$m->comp("/_shared/procs/filtererrors.m",srchargs=>\%srchargs, from=>$from);	
	$m->comp("/_shared/procs/showresultfooter.m",startrec=>-1, tnpt=>0, currrec=>0, recsinsel=>-1);
	
#---------------------------------------------------------------------
# mostrar novas empresas por sector
#---------------------------------------------------------------------
}elsif ($request eq 'ndir' || $request eq 'default.html'){ 
	
	 if ($$searchresults{'err'} == 0){
	 	
		$m->comp("/_shared/procs/showresults_novas_empresas.m", request=>'ndir', node=>$node, cod_rubrica => $$searchresults{'code'}, resultset=>$$searchresults{'resultset'}, filters=>$$searchresults{'filters'}, srchargs=>\%srchargs); 
			
	 }else{
	 	
		$m->comp("/_shared/templates/search/results/summary/noresults.html", srchargs=>\%srchargs, request=>$request);
		
	 }

#---------------------------------------------------------------------
# página desconhecida
#---------------------------------------------------------------------
}else{

	$m->comp("/_shared/templates/messages/page_not_found.html");
	
}
</%perl>
%#======================================================================================
<%method aux_form>
%#--------------------------------------------------------------------------------------
<form action="/ne/ndir/$node" method='get' name='aux'>
</%method>
%#--------------------------------------------------------------------------------------
<%method main_ctrl>
%#--------------------------------------------------------------------------------------
<& PARENT:main_ctrl, node => $node &>
</%method>
%#--------------------------------------------------------------------------------------
<%method nav_path>\
%#---------------------------------------------------------------------
<& /_shared/templates/dirpath.html, node=>$node, request=>'ndir' &>
</%method>