loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.118, 2005/10/25 18:47:49	version 1.119, 2005/10/26 23:37:51
Line 483 sub prettyinput {	Line 483 sub prettyinput {
if (defined($course_key)) {	if (defined($course_key)) {
my $stu_add;	my $stu_add;
my $only_one;	my $only_one;
	my $values = $env{$course_key.'.metadata.'.$_.'.values'};
if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/stuadd/) {	if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/stuadd/) {
$stu_add = 'true';	$stu_add = 'true';
}	}
Line 498 sub prettyinput {	Line 499 sub prettyinput {
if ($type eq 'subject') {	if ($type eq 'subject') {
}	}
if ($type eq 'keywords') {	if ($type eq 'keywords') {
	my %hash;
	my $def;
	foreach (split(/,/,$values)) {
	$hash{$_} = $_;
	}
	if ($only_one) {
	return(&Apache::loncommon::select_form($def,'new_keywords',%hash));
	} else {
	return(&Apache::loncommon::multiple_select_form('new_keywords',undef,undef,%hash));
	}
}	}
if ($type eq 'notes') {	if ($type eq 'notes') {
}	}
if ($type eq 'abstract') {	if ($type eq 'abstract') {
}	}

if (($type eq 'lowestgradelevel') \|\|	if (($type eq 'lowestgradelevel') \|\|
($type eq 'highestgradelevel')) {	($type eq 'highestgradelevel')) {
return &Apache::loncommon::select_level_form($value,$fieldname).	return &Apache::loncommon::select_level_form($value,$fieldname).