loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.166, 2012/08/25 21:48:12
+version 1.167, 2012/08/25 22:55:00
  Line 3526  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') {