--- loncom/interface/lonpreferences.pm	2003/09/16 22:40:25	1.28
+++ loncom/interface/lonpreferences.pm	2003/09/17 01:45:14	1.29
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.28 2003/09/16 22:40:25 www Exp $
+# $Id: lonpreferences.pm,v 1.29 2003/09/17 01:45:14 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -108,8 +108,8 @@ sub languagechanger {
     my $user       = $ENV{'user.name'};
     my $domain     = $ENV{'user.domain'};
     my %userenv = &Apache::lonnet::get
-        ('environment',['language','translator']);
-    my $language=$userenv{'language'};
+        ('environment',['languages','translator']);
+    my $language=$userenv{'languages'};
     my $translator=$userenv{'translator'};
     my $bodytag=&Apache::loncommon::bodytag(
               'Change Your Language Preferences');
@@ -141,12 +141,12 @@ sub verify_and_change_languages {
     $newlanguage=~s/[^\-\w]//g;
     my $message='';
     if ($newlanguage) {
-        &Apache::lonnet::put('environment',{'language' => $newlanguage});
-        &Apache::lonnet::appenv('environment.language' => $newlanguage);
-        $message='Set new preferred language to '.$newlanguage;
+        &Apache::lonnet::put('environment',{'languages' => $newlanguage});
+        &Apache::lonnet::appenv('environment.languages' => $newlanguage);
+        $message='Set new preferred languages to '.$newlanguage;
     } else {
-        &Apache::lonnet::del('environment',['language']);
-        &Apache::lonnet::delenv('environment\.language');
+        &Apache::lonnet::del('environment',['languages']);
+        &Apache::lonnet::delenv('environment\.languages');
         $message='Reset preferred language';
     }
     if ($ENV{'user.adv'}) {