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

[spadkins]

Author: spadkins
Date: Tue Jan 13 10:28:52 2009
New Revision: 12430

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

Log:
enable warning

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 13 10:28:52 2009
@@ -83,7 +83,7 @@
 
 sub unstyled_html {
     my $self = shift;
-    my ($name, $value, $html_value, $html, $var, $size, $maxlength, $tabindex, 
$readonly);
+    my ($name, $value, $html_value, $html, $var, $size, $maxlength, $tabindex, 
$readonly, $enable_warn, $enable_warning_widget);
     $name = $self->{name};
     $value = $self->fget_value();
     $html_value = $self->html_escape($value);
@@ -91,11 +91,17 @@
     $maxlength = $self->get("maxlength");
     $tabindex = $self->get("tabindex");
     $readonly = $self->get("readonly");
+    $enable_warn = $self->get("enable_warning");
+    $enable_warning_widget = $self->get("enable_warning_widget");
     $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);
+    if($enable_warn) {
+        $html .= " onkeydown=\"javascript: var enable_warning = 
context.getElementByName('" . $enable_warning_widget . "'); ";
+        $html .= " enable_warning.value = 'enabled';\" ";
+    }
     $html .= "/>";
     $html;
 }