exists($self->{form_text}) ? $self->{form_text} : [];
my $form_checkbox =
exists($self->{form_checkbox}) ? $self->{form_checkbox} : [];
+ my $form_select =
+ exists($self->{form_select}) ? $self->{form_select} : [];
my $html = $self->_safeonload.
$self->_visualize.
$html .= <<END;
<FORM NAME="${key}$layer" ACTION="$form_action" METHOD=POST onSubmit="${key}fixup(this)">
END
- foreach my $f ( @$form_text, @$form_checkbox ) {
+ foreach my $f ( @$form_text, @$form_checkbox, @$form_select ) {
$html .= <<END;
<INPUT TYPE="hidden" NAME="$f" VALUE="">
END