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.2, 2010/12/06 00:35:19
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+ci/) {
	return ($domtype);
	} elsif ($domtype =~ /^(\w+c)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);