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

# just trying out, save to tmp
if (exists $ARGS{'h_try'}){
	
	foreach my $key (keys %ARGS){
		
		next if $key eq 'done';
		next if $key =~ /^h_/o;
		
		if ($key eq 'concursos_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;
			
		}
		
		$m->comp("/_shared/procs/users/prefs/set_pref.m",pref_name=>"t_" . $key , pref_value=>$ARGS{$key});
		
	}
	
# user confirmed, save prefs
}elsif(exists $ARGS{'h_submit'}){
	
	foreach my $key (keys %ARGS){
		
		next if $key =~ /^h_/o;
		
		if ($key eq 'concursos_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;
			
		}
		
		$m->comp("/_shared/procs/users/prefs/set_pref.m",pref_name=>$key, pref_value=>$ARGS{$key});
		
	}
}


if (exists $ARGS{'h_try'}){
	my $srchurl = $m->comp("/_shared/procs/utils/get_searchargs.m", newargs=>{ft=>0}); 
	my $done = "/concursos/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=>'concursos');

	# restore view
	####$m->comp("/_shared/procs/windows/return_fromprefs.m",section=>'concursos');
	my $srchurl = $m->comp("/_shared/procs/utils/get_searchargs.m"); 
	my $done = "/concursos/prefs/default.html?$srchurl";
	$m->comp("/_shared/procs/utils/redirect.m", url=>$done);
}
</%init>