<& $comp, section=>'prefs', useprefs=>1, subset=>1, onlyone=>0, maxhits=>10, cp_nrec=>$cp_nrec, user=>$user &> <%shared> my $comp; my $edit; my $cp_nrec=$m->top_args->{cp_nrec}; my $kind = 'concursos'; my $has_tmpprefs = $m->comp("/_shared/procs/users/prefs/check_userprefs.m", pref_group=>"t_" . $kind); my $has_prefs = $m->comp("/_shared/procs/users/prefs/check_userprefs.m",pref_group=>$kind) unless $has_tmpprefs; if (!$has_tmpprefs && $has_prefs){ $comp = "/_shared/procs/concursos/cp_showset.m"; }else{ $comp="/$kind/prefs/edit.html"; $edit = 1; } <%method set_painel> <& PARENT:set_painel, fsection=>'prefs' &> <%args> $user=>undef %#====================================================================================== <%method msg_area> %#-------------------------------------------------------------------------------------- % return if $edit; <& /concursos/templates/prefs_msg.html &>