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