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

[spadkins]

Author: spadkins
Date: Wed May  9 08:34:26 2007
New Revision: 9534

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

Log:
Added readonly logic.



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   Wed May  9 08:34:26 2007
@@ -83,17 +83,19 @@
 
 sub unstyled_html {
     my $self = shift;
-    my ($name, $value, $html_value, $html, $var, $size, $maxlength, $tabindex);
+    my ($name, $value, $html_value, $html, $var, $size, $maxlength, $tabindex, 
$readonly);
     $name = $self->{name};
     $value = $self->fget_value();
     $html_value = $self->html_escape($value);
     $size = $self->get("size");
     $maxlength = $self->get("maxlength");
     $tabindex = $self->get("tabindex");
+    $readonly = $self->get("readonly");
     $html = "<input type=\"text\" name=\"${name}\" value=\"$html_value\"";
     $html .= " size=\"$size\"" if ($size);
     $html .= " maxlength=\"$maxlength\"" if ($maxlength);
     $html .= " tabindex=\"$tabindex\"" if ($tabindex);
+    $html .= " readonly=\"$readonly\"" if ($readonly);
     $html .= "/>";
     $html;
 }