loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);
}	}