--- loncom/interface/loncommon.pm	2003/12/22 22:39:07	1.161
+++ loncom/interface/loncommon.pm	2003/12/26 16:27:20	1.163
@@ -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.163 2003/12/26 16:27:20 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -762,7 +762,30 @@ sub select_form {
     return $selectform;
 }
 
-
+sub select_level_form {
+    my ($deflevel,$name)=@_;
+    unless ($deflevel) { $deflevel=0; }
+    return &select_form($deflevel,$name,(
+					 0 => 'Not specified',
+					 1 => 'Grade 1',
+					 2 => 'Grade 2',
+					 3 => 'Grade 3',
+					 4 => 'Grade 4',
+					 5 => 'Grade 5',
+					 6 => 'Grade 6',
+					 7 => 'Grade 7',
+					 8 => 'Grade 8',
+					 9 => 'Grade 9',
+					 10 => 'Grade 10',
+					 11 => 'Grade 11',
+					 12 => 'Grade 12',
+					 13 => 'Grade 13',
+					 14 => '100 Level',
+					 15 => '200 Level',
+					 16 => '300 Level',
+					 17 => '400 Level',
+					 18 => 'Graduate Level'));
+}
 #-------------------------------------------
 
 =pod
@@ -1618,6 +1641,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'}});