#!/usr/bin/perl
# edit_lang.cgi
# Language config form

require './language-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1);

print $text{'index_intro'},"<p>\n";

print &ui_form_start("change_lang.cgi");

$ulang = $gconfig{'lang_'.$remote_user};
$ulangauto = load_language_auto();
print "<b>$text{'index_lang'}</b>&nbsp;\n";
print &ui_select("lang", $ulang,
	[ [ "", $text{'index_global'} ],
	  map { [ $_->{'lang'}, $_->{'desc'}."" ] }
	      &list_languages() ]) ." ". 
	&ui_checkbox("langauto", 1, $text{'langauto_include'}, $ulangauto);
print &ui_form_end([ [ undef, $text{'index_ok'} ] ]);

&ui_print_footer("/", $text{'index'});