X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=SelectLayers.pm;h=6acb19d7f8d64494a794990a90aa0d36c02846f8;hb=0522831b021c55984699ce20fd4e19950d055161;hp=58e1700b73d3008803adeddc2ba5f4ecfcff03ac;hpb=5d8d48f88e0ba23b3cb988bf9aa913b2afae8d91;p=HTML-Widgets-SelectLayers.git

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