--- loncom/interface/loncommon.pm	2003/12/29 17:11:53	1.166
+++ loncom/interface/loncommon.pm	2003/12/29 21:17:00	1.167
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.166 2003/12/29 17:11:53 www Exp $
+# $Id: loncommon.pm,v 1.167 2003/12/29 21:17:00 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -762,30 +762,43 @@ sub select_form {
     return $selectform;
 }
 
+sub gradeleveldescription {
+    my $gradelevel=shift;
+    my %gradelevels=(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');
+    return &mt($gradelevels{$gradelevel});
+}
+
 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'));
+    my $selectform = "<select name=\"$name\" size=\"1\">\n";
+    for (my $i=0; $i<=18; $i++) {
+        $selectform.="<option value=\"$i\" ".
+            ($i==$deflevel ? 'selected' : '').
+                ">".&gradeleveldescription($i)."</option>\n";
+    }
+    $selectform.="</select>";
+    return $selectform;
 }
+
 #-------------------------------------------
 
 =pod