--- loncom/interface/domainprefs.pm 2012/08/25 21:48:12 1.166 +++ loncom/interface/domainprefs.pm 2012/08/25 22:55:00 1.167 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.166 2012/08/25 21:48:12 raeburn Exp $ +# $Id: domainprefs.pm,v 1.167 2012/08/25 22:55:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3526,6 +3526,17 @@ sub print_defaults { } elsif ($item eq 'datelocale_def') { my $includeempty = 1; $datatable .= &Apache::loncommon::select_datelocale($item,$domdefaults{$item},undef,$includeempty); + } elsif ($item eq 'lang_def') { + my %langchoices=('' => 'No language preference'); + foreach my $id (&Apache::loncommon::languageids()) { + my $code = &Apache::loncommon::supportedlanguagecode($id); + if ($code ne '') { + $langchoices{$code} = &Apache::loncommon::plainlanguagedescription($id); + } + } + %langchoices = &Apache::lonlocal::texthash(%langchoices); + $datatable .= &Apache::loncommon::select_form($domdefaults{$item},$item, + \%langchoices); } else { my $size; if ($item eq 'portal_def') {