version 1.1116, 2013/03/01 04:48:59
|
version 1.1117, 2013/03/19 00:37:03
|
Line 1003 sub select_language {
|
Line 1003 sub select_language {
|
my ($name,$selected,$includeempty) = @_; |
my ($name,$selected,$includeempty) = @_; |
my %langchoices; |
my %langchoices; |
if ($includeempty) { |
if ($includeempty) { |
%langchoices = ('' => &mt('No language preference')); |
%langchoices = ('' => 'No language preference'); |
} |
} |
foreach my $id (&languageids()) { |
foreach my $id (&languageids()) { |
my $code = &supportedlanguagecode($id); |
my $code = &supportedlanguagecode($id); |
Line 1011 sub select_language {
|
Line 1011 sub select_language {
|
$langchoices{$code} = &plainlanguagedescription($id); |
$langchoices{$code} = &plainlanguagedescription($id); |
} |
} |
} |
} |
|
%langchoices = &Apache::lonlocal::texthash(%langchoices); |
return &select_form($selected,$name,\%langchoices); |
return &select_form($selected,$name,\%langchoices); |
} |
} |
|
|