loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.653, 2008/05/19 17:00:22	version 1.654, 2008/05/27 22:26:11
Line 2932 sub display_languages {	Line 2932 sub display_languages {

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

if ($env{'environment.languages'}) {	if ($env{'environment.languages'}) {
@languages=(@languages,	@languages=(@languages,
split(/\s(\,\|\;\|\:)\s/,$env{'environment.languages'}));	split(/\s(\,\|\;\|\:)\s/,$env{'environment.languages'}));