loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.60.4.2, 2010/12/06 00:35:19	version 1.60.4.3, 2010/12/06 17:52:20
Line 245 sub preferred_languages {	Line 245 sub preferred_languages {
my $defdom = &Apache::lonnet::default_login_domain();	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) {
next if ($domtype eq '');	next if ($domtype eq '');
if ($domtype =~ /^\w+ci/) {	if ($domtype =~ /^(\w{2})\w?i$/) {
return ($domtype);	return ($1.'i');
} elsif ($domtype =~ /^(\w+c)itest$/) {	} elsif ($domtype =~ /^(\w{2})\w?itest$/) {
return ($1.'t');	return ($1.'t');
} else {	} else {
return ('gci');	return ('gci');