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

[spadkins]

Author: spadkins
Date: Tue Jan 13 10:29:49 2009
New Revision: 12431

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

Log:
enable warning

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      Tue Jan 13 10:29:49 2009
@@ -79,7 +79,7 @@
 sub unstyled_html {
     my $self = shift;
     my ($context, $name, @currvalues, $values, @values, $labels);
-    my ($tagname, $nullable, $size, $multiple, $tabindex, $onchange);
+    my ($tagname, $nullable, $size, $multiple, $tabindex, $onchange, 
$enablewarn, $enable_warning_widget);
 
     $context       = $self->{context};
     $name     = $self->{name};
@@ -89,6 +89,8 @@
     $multiple = $self->get("multiple");
     $tabindex = $self->get("tabindex");
     $onchange = $self->get("submit_on_change");
+    $enablewarn = $self->get("enable_warning");
+    $enable_warning_widget = $self->get("enable_warning_widget");
 
     ($values, $labels) = $self->values_labels();
 
@@ -102,6 +104,11 @@
     $tagname  = $multiple ? "$name\[]" : $name;
     $onchange = $onchange ? " onchange=\"document.forms[0].submit();\"" : "";
 
+    if($enablewarn) {
+        $onchange = " onchange=\"javascript: var enable_warning = 
context.getElementByName('" . $enable_warning_widget . "'); ";
+        $onchange .= " enable_warning.value = 'enabled';\" ";
+    }
+
     my ($value, $v, %value_exists, $value_exists, @html);
     @currvalues = $self->get_values();
     foreach $value (@currvalues) {

Modified: p5ee/trunk/App-Widget/lib/App/Widget/TextArea.pm
==============================================================================
--- p5ee/trunk/App-Widget/lib/App/Widget/TextArea.pm    (original)
+++ p5ee/trunk/App-Widget/lib/App/Widget/TextArea.pm    Tue Jan 13 10:29:49 2009
@@ -94,6 +94,8 @@
     my $wrap = $self->{wrap};
     my $readonly = $self->get("readonly");
     my $readonly_html = "";
+    my $enable_warn = $self->get("enable_warning");
+    my $enable_warning_widget = $self->get("enable_warning_widget");
 
     if (defined $wrap) {
         if ($wrap =~ /^(hard|off|physical|soft|virtual)$/) {
@@ -107,7 +109,14 @@
     $readonly_html = " readonly" if (defined $readonly);
 
     my $tabindex = $self->{tabindex};
-    $html = "<textarea name=\"${name}\" rows=\"$rows\" 
cols=\"$cols\"$wrap_html $readonly_html>\n";
+    if($enable_warn) {
+        $html = "<textarea name=\"${name}\" rows=\"$rows\" 
cols=\"$cols\"$wrap_html $readonly_html";
+        $html .= " onkeydown=\"javascript: var enable_warning = 
context.getElementByName('" . $enable_warning_widget . "'); ";
+        $html .= " enable_warning.value = 'enabled';\">\n";
+    }
+    else {
+        $html = "<textarea name=\"${name}\" rows=\"$rows\" 
cols=\"$cols\"$wrap_html $readonly_html>\n";
+    }
     $html .= $html_value;
     $html .= "</textarea>";
     $html;