version 1.100, 2005/07/15 12:57:53
|
version 1.101, 2005/08/02 17:01:20
|
Line 298 sub select_course {
|
Line 298 sub select_course {
|
$r->print('</form>'); |
$r->print('</form>'); |
|
|
foreach my $key (keys %env) { |
foreach my $key (keys %env) { |
|
|
if ($key =~ /\.metadata\./) { |
if ($key =~ /\.metadata\./) { |
|
my $course_key = $key; |
|
$course_key =~ s/\.metadata\..*//; |
$r->print('<option>'); |
$r->print('<option>'); |
$r->print($key); |
$r->print($env{$course_key.'.description'}); |
$r->print('</option>'); |
$r->print('</option>'); |
} |
} |
} |
} |