version 1.202, 2013/01/04 00:23:31
|
version 1.204, 2013/03/19 00:37:03
|
Line 152 sub languagechanger {
|
Line 152 sub languagechanger {
|
text => 'Change Language'}); |
text => 'Change Language'}); |
$r->print(Apache::loncommon::start_page('Content Display Settings')); |
$r->print(Apache::loncommon::start_page('Content Display Settings')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Language')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Language')); |
my $user = $env{'user.name'}; |
my %userenv = &Apache::lonnet::get('environment',['languages']); |
my $domain = $env{'user.domain'}; |
|
my %userenv = &Apache::lonnet::get |
|
('environment',['languages']); |
|
my $language=$userenv{'languages'}; |
my $language=$userenv{'languages'}; |
|
|
my $pref=&mt('Preferred language'); |
$r->print( |
my %langchoices=('' => 'No language preference'); |
'<form name="prefs" action="/adm/preferences" method="post">'."\n". |
foreach (&Apache::loncommon::languageids()) { |
'<input type="hidden" name="action" value="verify_and_change_languages" />'. |
if (&Apache::loncommon::supportedlanguagecode($_)) { |
'<br /><span class="LC_nobreak">'.&mt('Preferred language').': '. |
$langchoices{&Apache::loncommon::supportedlanguagecode($_)} |
&Apache::loncommon::select_language('language',$language,1).'</span>'."\n". |
= &Apache::loncommon::plainlanguagedescription($_); |
'<br /><input type="submit" value="'.&mt('Save').'" /></form>' |
} |
); |
} |
|
%langchoices = &Apache::lonlocal::texthash(%langchoices); |
|
my $selectionbox= |
|
&Apache::loncommon::select_form( |
|
$language, |
|
'language', |
|
\%langchoices); |
|
$r->print(<<ENDLSCREEN); |
|
<form name="prefs" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="verify_and_change_languages" /> |
|
<br />$pref: $selectionbox |
|
ENDLSCREEN |
|
$r->print('<br /><input type="submit" value="'.&mt('Save').'" />'); |
|
} |
} |
|
|
|
|