loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.166, 2003/12/29 17:11:53
+version 1.167, 2003/12/29 21:17:00
  Line 762  sub select_form {
      return $selectform;
  }
+ sub gradeleveldescription {
+     my $gradelevel=shift;
+     my %gradelevels=(0 => 'Not specified',
+=> 'Grade 1',
+=> 'Grade 2',
+=> 'Grade 3',
+=> 'Grade 4',
+=> 'Grade 5',
+=> 'Grade 6',
+=> 'Grade 7',
+=> 'Grade 8',
+=> 'Grade 9',
+=> 'Grade 10',
+=> 'Grade 11',
+=> 'Grade 12',
+=> 'Grade 13',
+=> '100 Level',
+=> '200 Level',
+=> '300 Level',
+=> '400 Level',
+=> 'Graduate Level');
+     return &mt($gradelevels{$gradelevel});
+ }
  sub select_level_form {
      my ($deflevel,$name)=@_;
      unless ($deflevel) { $deflevel=0; }
-     return &select_form($deflevel,$name,(
+     my $selectform = "<select name=\"$name\" size=\"1\">\n";
-=> 'Not specified',
+     for (my $i=0; $i<=18; $i++) {
-=> 'Grade 1',
+         $selectform.="<option value=\"$i\" ".
-=> 'Grade 2',
+             ($i==$deflevel ? 'selected' : '').
-=> 'Grade 3',
+                 ">".&gradeleveldescription($i)."</option>\n";
-=> 'Grade 4',
+     }
-=> 'Grade 5',
+     $selectform.="</select>";
-=> 'Grade 6',
+     return $selectform;
-=> 'Grade 7',
-=> 'Grade 8',
-=> 'Grade 9',
-=> 'Grade 10',
-=> 'Grade 11',
-=> 'Grade 12',
-=> 'Grade 13',
-=> '100 Level',
-=> '200 Level',
-=> '300 Level',
-=> '400 Level',
-=> 'Graduate Level'));
  }
  #-------------------------------------------
  =pod