version 1.18, 2001/07/13 16:15:01
|
version 1.19, 2001/07/18 20:27:22
|
Line 315 sub select_arg {
|
Line 315 sub select_arg {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub select_or_text_arg { |
|
my ($description,$name,$list,$token,$size) = @_; |
|
my $result; |
|
my $optionlist=""; |
|
my $found=0; |
|
my $selected=$token->[2]{$name}; |
|
foreach my $option (@$list) { |
|
if ( $selected eq $option ) { |
|
$optionlist.="<option selected=\"on\">$option</option>\n"; |
|
$found=1; |
|
} else { |
|
$optionlist.="<option>$option</option>\n"; |
|
} |
|
} |
|
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
|
if ($found) { |
|
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
|
'.$optionlist.' |
|
</select></td></tr><tr><td colspan="3">'; |
|
} else { |
|
$result.=&text_arg($description,$name,$token,$size); |
|
} |
|
return $result; |
|
} |
1; |
1; |
__END__ |
__END__ |