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

[email protected] Tue, 13 Jan 2009 10:28:05 -0800 (PST)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
Author: spadkins
Date: Tue Jan 13 10:28:04 2009
New Revision: 12429

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

Log:
enable warning

Modified: p5ee/trunk/App-Widget/lib/App/Widget/Checkbox.pm
==============================================================================
--- p5ee/trunk/App-Widget/lib/App/Widget/Checkbox.pm	(original)
+++ p5ee/trunk/App-Widget/lib/App/Widget/Checkbox.pm	Tue Jan 13 10:28:04 2009
@@ -79,12 +79,30 @@
     # universally implemented. If anyone knows differently, please
     # let me know.)
 
+    # To caputre the click event
+    my $enable_warn = $self->{enable_warning};
+    my $enable_warning_widget = $self->{enable_warning_widget};
+
     $html = "<input type=\"hidden\" name=\"$name\" value=\"{:delete:}\" />";
     if ($value) {
-        $html .= "<input type=\"checkbox\" name=\"$name\" value=\"1\" checked />";
+        if($enable_warn) {
+            $html .= "<input type=\"checkbox\" name=\"$name\" value=\"1\" checked
+                  onclick=\"javascript: var enable_warning = context.getElementByName('" . $enable_warning_widget . "');
+                  enable_warning.value = 'enabled';\" />";
+        }
+        else {
+            $html .= "<input type=\"checkbox\" name=\"$name\" value=\"1\" checked />";
+        }
     }
     else {
-        $html .= "<input type=\"checkbox\" name=\"$name\" value=\"1\" />";
+        if($enable_warn) {
+            $html .= "<input type=\"checkbox\" name=\"$name\" value=\"1\" 
+                  onclick=\"javascript: var enable_warning = context.getElementByName('" . $enable_warning_widget . "');
+                  enable_warning.value = 'enabled';\" />";
+        }
+        else {
+            $html .= "<input type=\"checkbox\" name=\"$name\" value=\"1\" />";
+        }
     }
     $html;
 }