<%args>
$ft=>1
$done_mensagens=>'/'
<%init>
# save return page (first time only)
$m->comp("/_shared/procs/windows/saveview.m",section=>'mensagens', location => $done_mensagens) if ($ft==1);
# clear tmp prefs (first time only)
$m->comp("/_shared/procs/users/prefs/clear_tmpprefs.m",pref_group=>'mensagens') if ($ft==1);
# palavras escolhidas por este utilizador
# verificar se existem preferencias nao processadas
my $tmp_prefs = $m->comp("/_shared/procs/users/prefs/get_userprefs.m", pref_name=>'t_mensagens_keywords');
my $prefs_words = ($tmp_prefs) ? $tmp_prefs:$m->comp("/_shared/procs/users/prefs/get_userprefs.m", pref_name=>'mensagens_keywords');
my $text = join "\r\n", @$prefs_words if $prefs_words;
# guardar copia na primeira vez
if ($ft){
$m->comp("/_shared/procs/users/prefs/set_pref.m",pref_name=>'t_mensagens_keywords', pref_value=>$prefs_words);
}
<%method search>