<%flags>
inherit=>undef
</%flags>
<%init>
#--------------------------------------------------------------------------------------
# populate cookies global hash
#--------------------------------------------------------------------------------------
$m->comp("/_shared/procs/get_all_cookies.m");


if (!exists $ARGS{'h_cancel'}){
	
	foreach my $key (keys %ARGS){
		
		next if $key =~ /^h_/o;
		
		if ($key eq 'mensagens_keywords'){
			my $text = $ARGS{$key};
			$text =~ s/\r//gm;
			$text =~ s/^\s*(.*)\s*$/$1/g;
			my @keywords = split /\n/, $text;
			$#keywords = 9 if $#keywords > 9;
			$ARGS{$key} = \@keywords;
			
		}
		
		my $pref_name = (exists $ARGS{'h_try'}) ? "t_" . $key:$key;
		$m->comp("/_shared/procs/users/prefs/set_pref.m",pref_name=>$pref_name, pref_value=>$ARGS{$key});
		
	}
}

# return page
if (exists $ARGS{'h_try'}){
	my $srchurl = $m->comp("/_shared/procs/utils/get_searchargs.m", newargs=>{ft=>0}); 
	my $done = "/mensagens/prefs/edit.html?$srchurl";
	$m->comp("/_shared/procs/utils/redirect.m", url=>$done);
}else{
	# clear tmp prefs
	$m->comp("/_shared/procs/users/prefs/clear_tmpprefs.m",pref_group=>'mensagens');

	# restore view
	$m->comp("/_shared/procs/windows/return_fromprefs.m",section=>'mensagens');
}
</%init>