diff options
| -rw-r--r-- | SelectLayers.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/SelectLayers.pm b/SelectLayers.pm index 58e1700..6acb19d 100644 --- a/SelectLayers.pm +++ b/SelectLayers.pm @@ -127,6 +127,8 @@ sub html { 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. @@ -157,7 +159,7 @@ END $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 |