[svn:p5ee] r8392 - p5ee/trunk/App-Widget/lib/App/Widget

Author: spadkins
Date: Wed Dec 13 11:57:08 2006
New Revision: 8392

Modified:
   p5ee/trunk/App-Widget/lib/App/Widget/Select.pm

Log:
submit on change is now an option

Modified: p5ee/trunk/App-Widget/lib/App/Widget/Select.pm
==============================================================================
--- p5ee/trunk/App-Widget/lib/App/Widget/Select.pm	(original)
+++ p5ee/trunk/App-Widget/lib/App/Widget/Select.pm	Wed Dec 13 11:57:08 2006
@@ -71,7 +71,7 @@
 sub unstyled_html {
     my $self = shift;
     my ($context, $name, @currvalues, $values, @values, $labels);
-    my ($tagname, $nullable, $size, $multiple, $tabindex);
+    my ($tagname, $nullable, $size, $multiple, $tabindex, $onchange);
 
     $context       = $self->{context};
     $name     = $self->{name};
@@ -80,6 +80,7 @@
     $size     = $self->get("size");
     $multiple = $self->get("multiple");
     $tabindex = $self->get("tabindex");
+    $onchange = $self->get("submit_on_change");
 
     ($values, $labels) = $self->values_labels();
 
@@ -91,6 +92,7 @@
     $tabindex = (defined $tabindex && $tabindex ne "") ? " tabindex='$tabindex'" : "";
     $multiple = $multiple ? " multiple" : "";
     $tagname  = $multiple ? "$name\[]" : $name;
+    $onchange = $onchange ? " onchange=\"document.forms[0].submit();\"" : "";
 
     my ($value, $v, %value_exists, $value_exists, @html);
     @currvalues = $self->get_values();
@@ -110,7 +112,7 @@
     }
 
     my $html_attribs = $self->html_attribs();
-    return "<select name='$tagname'${size}${multiple}${tabindex}$html_attribs>\n" . join("",@html) . "</select>";
+    return "<select name='$tagname'${size}${multiple}${tabindex}${onchange}$html_attribs>\n" . join("",@html) . "</select>";
 }
 
 1;