<& /_shared/procs/concursos/cp_showlast.m, painel=>1, cp_nrec=>$cp_nrec, user=>$user &>

<%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 <%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});