[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;
}