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