loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.50.4.1, 2009/09/14 22:32:09	version 1.50.4.2, 2009/09/14 22:34:41
Line 234 sub current_language {	Line 234 sub current_language {
}	}

sub preferred_languages {	sub preferred_languages {
	return ('gci');
my @languages=();	my @languages=();
if (($Apache::lonnet::env{'request.role.adv'}) && ($Apache::lonnet::env{'form.languages'})) {	if (($Apache::lonnet::env{'request.role.adv'}) && ($Apache::lonnet::env{'form.languages'})) {
@languages=(@languages,split(/\s(\,\|\;\|\:)\s/,$Apache::lonnet::env{'form.languages'}));	@languages=(@languages,split(/\s(\,\|\;\|\:)\s/,$Apache::lonnet::env{'form.languages'}));