--- loncom/interface/loncommon.pm	2003/12/22 22:39:07	1.161
+++ loncom/interface/loncommon.pm	2003/12/22 23:34:49	1.162
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.161 2003/12/22 22:39:07 www Exp $
+# $Id: loncommon.pm,v 1.162 2003/12/22 23:34:49 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1618,6 +1618,10 @@ sub preferred_languages {
 	@languages=(@languages,split(/\s*(\,|\;|\:)\s*/,
 	         $ENV{'course.'.$ENV{'request.course.id'}.'.languages'}));
     }
+    my $browser=(split(/\;/,$ENV{'HTTP_ACCEPT_LANGUAGE'}))[0];
+    if ($browser) {
+	@languages=(@languages,split(/\s*(\,|\;|\:)\s*/,$browser));
+    }
     if ($Apache::lonnet::domain_lang_def{$ENV{'user.domain'}}) {
 	@languages=(@languages,
 		$Apache::lonnet::domain_lang_def{$ENV{'user.domain'}});