version 1.166, 2003/12/29 17:11:53
|
version 1.167, 2003/12/29 21:17:00
|
Line 762 sub select_form {
|
Line 762 sub select_form {
|
return $selectform; |
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 { |
sub select_level_form { |
my ($deflevel,$name)=@_; |
my ($deflevel,$name)=@_; |
unless ($deflevel) { $deflevel=0; } |
unless ($deflevel) { $deflevel=0; } |
return &select_form($deflevel,$name,( |
my $selectform = "<select name=\"$name\" size=\"1\">\n"; |
0 => 'Not specified', |
for (my $i=0; $i<=18; $i++) { |
1 => 'Grade 1', |
$selectform.="<option value=\"$i\" ". |
2 => 'Grade 2', |
($i==$deflevel ? 'selected' : ''). |
3 => 'Grade 3', |
">".&gradeleveldescription($i)."</option>\n"; |
4 => 'Grade 4', |
} |
5 => 'Grade 5', |
$selectform.="</select>"; |
6 => 'Grade 6', |
return $selectform; |
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 |
=pod |