|
version 1.60.4.1, 2009/12/07 04:05:18
|
version 1.60.4.2, 2010/12/06 00:35:19
|
|
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 eq 'gci') { |
if ($domtype =~ /^\w+ci/) { |
| return ('gci'); |
return ($domtype); |
| } elsif ($domtype eq 'gcitest') { |
} elsif ($domtype =~ /^(\w+c)itest$/) { |
| return ('gct'); |
return ($1.'t'); |
| } else { |
} else { |
| return ('gci'); |
return ('gci'); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlocal.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / localize