--- loncom/localize/lonlocal.pm 2009/10/02 16:59:29 1.60.2.1 +++ loncom/localize/lonlocal.pm 2010/12/06 00:35:19 1.60.4.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Localization routines # -# $Id: lonlocal.pm,v 1.60.2.1 2009/10/02 16:59:29 raeburn Exp $ +# $Id: lonlocal.pm,v 1.60.4.2 2010/12/06 00:35:19 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -245,10 +245,10 @@ 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 eq 'gci') { - return ('gci'); - } elsif ($domtype eq 'gcitest') { - return ('gct'); + if ($domtype =~ /^\w+ci/) { + return ($domtype); + } elsif ($domtype =~ /^(\w+c)itest$/) { + return ($1.'t'); } else { return ('gci'); }