loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.125, 2005/11/11 21:25:50	version 1.126, 2005/11/11 22:46:56
Line 512 sub prettyinput {	Line 512 sub prettyinput {
}	}
if ($type eq 'keywords') {	if ($type eq 'keywords') {
my %hash;	my %hash;
my $def;
my @cur_values;	my @cur_values;
foreach (split(/,/,$value)) {	foreach (split(/,/,$value)) {
$_ =~ s/^\s+//;	$_ =~ s/^\s+//;
Line 523 sub prettyinput {	Line 522 sub prettyinput {
$hash{$_} = $_;	$hash{$_} = $_;
}	}
if ($only_one) {	if ($only_one) {
return(&Apache::loncommon::select_form($def,'new_keywords',%hash));	return(&Apache::loncommon::select_form($value,'new_keywords',%hash));
} else {	} else {
return (&Apache::loncommon::multiple_select_form('new_keywords',\@cur_values,undef,\%hash));	return (&Apache::loncommon::multiple_select_form('new_keywords',\@cur_values,undef,\%hash));
}	}