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

[spadkins]

Author: spadkins
Date: Tue Jan 20 05:55:26 2009
New Revision: 12457

Modified:
   p5ee/trunk/App-Widget/lib/App/Widget/RadioButtonSet.pm
   p5ee/trunk/App-Widget/lib/App/Widget/TextField.pm

Log:
add support for arbitrary html_attribs()

Modified: p5ee/trunk/App-Widget/lib/App/Widget/RadioButtonSet.pm
==============================================================================
--- p5ee/trunk/App-Widget/lib/App/Widget/RadioButtonSet.pm      (original)
+++ p5ee/trunk/App-Widget/lib/App/Widget/RadioButtonSet.pm      Tue Jan 20 
05:55:26 2009
@@ -62,7 +62,7 @@
 
 sub html {
     my $self = shift;
-    my ($context, $name, $curr_value, $values, $labels);
+    my ($context, $name, $curr_value, $values, $labels, $html_attribs);
     my ($nullable, $tabindex);
     my ($value, $v, @html, $label);
 
@@ -74,6 +74,8 @@
 
     ($values, $labels) = $self->values_labels();
 
+    $html_attribs = $self->html_attribs();
+
     $tabindex = (defined $tabindex && $tabindex ne "") ? " 
tabindex=\"$tabindex\"" : "";
 
     @html = ();
@@ -81,14 +83,13 @@
     for ($v = 0; $v <= $#$values; $v++) {
         $value = $values->[$v];
         $label = $self->html_escape($labels->{$value});
-        push(@html,"  <input type=\"radio\" name=\"$name\" 
value=\"$value\"$tabindex" .
+        push(@html,"  <input type=\"radio\" name=\"$name\" 
value=\"$value\"$tabindex".
+            (($html_attribs) ? " $html_attribs" : "") .
             (($value eq $curr_value) ? " checked />" : " />") .
             $label .
-            "\n");
+            "<br>");
     }
-
     return join("",@html);
 }
 
 1;
-

Modified: p5ee/trunk/App-Widget/lib/App/Widget/TextField.pm
==============================================================================
--- p5ee/trunk/App-Widget/lib/App/Widget/TextField.pm   (original)
+++ p5ee/trunk/App-Widget/lib/App/Widget/TextField.pm   Tue Jan 20 05:55:26 2009
@@ -83,7 +83,7 @@
 
 sub unstyled_html {
     my $self = shift;
-    my ($name, $value, $html_value, $html, $var, $size, $maxlength, $tabindex, 
$readonly, $enable_warn, $enable_warning_widget);
+    my ($name, $value, $html_value, $html, $var, $size, $maxlength, $tabindex, 
$readonly, $html_attribs, $enable_warn, $enable_warning_widget);
     $name = $self->{name};
     $value = $self->fget_value();
     $html_value = $self->html_escape($value);
@@ -91,6 +91,7 @@
     $maxlength = $self->get("maxlength");
     $tabindex = $self->get("tabindex");
     $readonly = $self->get("readonly");
+    $html_attribs = $self->html_attribs();
     $enable_warn = $self->get("enable_warning");
     $enable_warning_widget = $self->get("enable_warning_widget");
     $html = "<input type=\"text\" name=\"${name}\" value=\"$html_value\"";
@@ -98,6 +99,7 @@
     $html .= " maxlength=\"$maxlength\"" if ($maxlength);
     $html .= " tabindex=\"$tabindex\"" if ($tabindex);
     $html .= " readonly=\"$readonly\"" if ($readonly);
+    $html .= " $html_attribs" if ($html_attribs);
     if($enable_warn) {
         $html .= " onkeydown=\"javascript: var enable_warning = 
context.getElementByName('" . $enable_warning_widget . "'); ";
         $html .= " enable_warning.value = 'enabled';\" ";