loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.197, 2007/01/15 20:51:52	version 1.199, 2007/01/16 07:26:45
Line 598 sub prettyinput {	Line 598 sub prettyinput {
if ($meta_options{$item}) {	if ($meta_options{$item}) {
push(@cur_values_inst,$item);	push(@cur_values_inst,$item);
} else {	} else {
$cur_values_stu .= $item.',';	if ($item ne 'Not Specified') {
	$cur_values_stu .= $item.',';
	}
}	}
}	}
my @key_order = sort(keys(%meta_options));	my @key_order = sort(keys(%meta_options));
Line 612 sub prettyinput {	Line 614 sub prettyinput {
return (&select_course());	return (&select_course());
# return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');	# return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');
}	}
my $course = $env{'request.course.id'};
if (($type eq 'keywords') \|\| ($type eq 'subject')	if (($type eq 'keywords') \|\| ($type eq 'subject')
\|\| ($type eq 'author')\|\|($type eq 'notes')	\|\| ($type eq 'author')\|\|($type eq 'notes')
\|\| ($type eq 'abstract')\|\| ($type eq 'title')\|\| ($type eq 'standards')	\|\| ($type eq 'abstract')\|\| ($type eq 'title')\|\| ($type eq 'standards')
\|\| (exists($env{'course.'.$env{'request.course.id'}.'.metadata.'.$type.'.added'}))) {	\|\| (exists($env{$course_key.'.metadata.'.$type.'.added'}))) {

if ($values) {	if ($values) {
if ($only_one) {	if ($only_one) {