X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=SelectLayers.pm;h=58e1700b73d3008803adeddc2ba5f4ecfcff03ac;hb=5d8d48f88e0ba23b3cb988bf9aa913b2afae8d91;hp=7cef104ca6ae7a7cd9d748b1f240ff066e4773e0;hpb=25743a94d01bed5db01be7eebfdbd543a63e6a3e;p=HTML-Widgets-SelectLayers.git

diff --git a/SelectLayers.pm b/SelectLayers.pm
index 7cef104..58e1700 100644
--- a/SelectLayers.pm
+++ b/SelectLayers.pm
@@ -3,7 +3,7 @@ package HTML::Widgets::SelectLayers;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 =head1 NAME
 
@@ -22,7 +22,7 @@ HTML::Widgets::SelectLayers - Perl extension for selectable HTML layers
   $widget = new HTML::Widgets::SelectLayers(
     'options'       => \%options,
     'form_name'     => 'dummy',
-    'form_actoin'   => 'process.cgi',
+    'form_action'   => 'process.cgi',
     'form_text'     => [ qw( textfield1 textfield2 ) ],
     'form_checkbox' => [ qw( checkbox1 ) ],
     'layer_callback' => sub {
@@ -87,11 +87,12 @@ form_text - (optional) Array reference of text (or hidden) form fields to copy
 form_checkbox - (optional) Array reference of checkbox form fields to copy from
                 the B<form_name> form.
 
+form_select - (optional) Array reference of select (not select multiple) form
+              fields to copy from the B<form_name> form.
+
 fixup_callback - (optional) subroutine reference, returns supplimentary
                  JavaScript for the function described above under FORMS.
 
-#form_select
-
 size - (optional) size of the E<lt>SELECTE<gt>, default 1.
 
 unique_key - (optional) prepended to all JavaScript function/variable/object
@@ -191,6 +192,8 @@ sub _fixup {
     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 = "
     <SCRIPT>
     function ${key}fchanged(what) {
@@ -209,9 +212,9 @@ sub _fixup {
                 what.$f.value = '';\n"
   }
 
-#  foreach my $f ( @$form_select ) {
-#    $html .= "what.$f.value = document.$form_name.$f.options[document.$form_name.$f.selectedIndex].value;\n";
-#  }
+  foreach my $f ( @$form_select ) {
+    $html .= "what.$f.value = document.$form_name.$f.options[document.$form_name.$f.selectedIndex].value;\n";
+  }
 
   $html .= &{$self->{fixup_callback}}() if exists($self->{fixup_callback});