% if ($prev || $next){ % my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m"); % if ($msg){ % } % #' % }
<%$msg%> % if ($cp_count){ % }else{ % } % if ($prev){ % my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m",newargs=>{cp_nrec=>$cp_nrec-1,cp_count=>$cp_count}); % my $url = "$base_url/$prev?$search_args"; % }else{ % } % if ($next){ % my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m",newargs=>{cp_nrec=>$cp_nrec+1,cp_count=>$cp_count}); % my $url = "$base_url/$next?$search_args"; % }else{ % }
<%args> $prev=>undef $next=>undef $cp_nrec=>undef $cp_count=>undef $msg=>undef $section=>undef $pos => undef <%init> my $base_url = '/concursos/anuncios'; my $index_url; if ($section eq 'arquivo'){ $index_url = '/concursos/arquivo/arquivo.html'; }elsif ($section eq 'prefs'){ $index_url = '/concursos/prefs/default.html'; }else{ $index_url = '/concursos/ultima/default.html'; }