Use old lang map to accommodate language changes

This commit is contained in:
Ilia Rostovtsev
2020-03-16 23:04:56 +03:00
parent 556f3e990d
commit 6ab73204e8
10 changed files with 61 additions and 20 deletions

View File

@@ -73,10 +73,11 @@ print "<option value=5>$text{'user_extauth'}</option>\n";
print "</select><input type=password name=pass size=25></td> </tr>\n";
@langs = &list_languages();
my $ulang = safe_language($user->{'lang'});
%langdesc = map { $_->{'lang'}, $_->{'desc'} } @langs;
print "<tr> <td><b>$text{'user_lang'}</b></td> <td>\n";
printf "<input type=radio name=lang_def value=1 checked> %s (%s)\n",
$text{'user_leave'}, $user->{'lang'} ? $langdesc{$user->{'lang'}}
$text{'user_leave'}, $ulang ? $langdesc{$ulang}
: $text{'user_default'};
printf "<input type=radio name=lang_def value=0> %s\n",
$text{'user_set'};

View File

@@ -38,9 +38,9 @@ print "<tr> <td><b>$text{'user_lang'}</b></td> <td>\n";
print "<select name=lang>\n";
print "<option value='' selected>$text{'user_default'}</option>\n";
foreach $l (&list_languages()) {
printf "<option value=%s>%s (%s)</option>\n",
printf "<option value=%s>%s</option>\n",
$l->{'lang'},
$l->{'desc'}, uc($l->{'lang'});
$l->{'desc'};
}
print "</select></td>\n";