loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>');
}	}
}	}