% if ($cp_adj eq 0){
<& /_shared/procs/concursos/cp_showset.m, section=>$section, painel=>1,maxhits=>5, anuncio=>$anuncio, cp_nrec=>$cp_nrec, cp_date=>$cp_date, cp_query=>$cp_query, user=>$user, cp_adj=>$cp_adj &>

<tr><td align=right>
<p align=right><a class="mais" href="/concursos/<%$section%>?<%$search_args%>"><% ($versao == 1) ? "nova pesquisa...":"new search..."%></a></p>
</td></tr>
% 	}

<%ARGS>
$cp_day=> undef
$cp_month=> undef
$cp_year=> undef
$diario => undef
$anuncio => undef
$cp_nrec=>undef
$cp_query=>undef
$user=>undef
$cp_adj=>undef
</%ARGS>

<%init>
my $section = ($cp_adj)? 'adjudicacoes':'arquivo';
my $cp_date;
if ($diario){
	$cp_date = $m->comp("/_shared/procs/concursos/cp_getddate.m",diario=>$diario);
}
if (!$cp_date){
	if ($cp_month && $cp_year){
		$cp_date = $cp_year.'-'.$cp_month.'-'.$cp_day;
	}elsif($cp_year){
		$cp_date = $cp_year . "-";
	}
}
my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m", delargs=>{cp_search=>1}, newargs=>{cp_adj=>$cp_adj});
</%init>