fix form_select, should work now

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