loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.60, 2009/10/01 20:22:33	version 1.60.4.3, 2010/12/06 17:52:20
Line 242 sub current_language {	Line 242 sub current_language {
}	}

sub preferred_languages {	sub preferred_languages {
	my $defdom = &Apache::lonnet::default_login_domain();
	foreach my $domtype ($Apache::lonnet::env{'user.domain'},$Apache::lonnet::env{'request.role.domain'},$defdom) {
	next if ($domtype eq '');
	if ($domtype =~ /^(\w{2})\w?i$/) {
	return ($1.'i');
	} elsif ($domtype =~ /^(\w{2})\w?itest$/) {
	return ($1.'t');
	} else {
	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'}));
Line 262 sub preferred_languages {	Line 273 sub preferred_languages {
push(@languages,@browser);	push(@languages,@browser);
}	}

my $defdom = &Apache::lonnet::default_login_domain();
foreach my $domtype ($Apache::lonnet::env{'user.domain'},$Apache::lonnet::env{'request.role.domain'},$defdom) {	foreach my $domtype ($Apache::lonnet::env{'user.domain'},$Apache::lonnet::env{'request.role.domain'},$defdom) {
if ($domtype ne '') {	if ($domtype ne '') {
my %domdefs = &Apache::lonnet::get_domain_defaults($domtype);	my %domdefs = &Apache::lonnet::get_domain_defaults($domtype);