From 8573be85821d830ebc28387b866d142f89f9e014 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 3 Sep 2008 22:13:06 +0000
Subject: [PATCH] Fix a bug where the value 0 wasn't valid when entering data
 into the DataForm.

---
 docs/changelog/7.x.x.txt             | 1 +
 lib/WebGUI/Asset/Wobject/DataForm.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index e0a60a23d..54119f4f0 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -17,6 +17,7 @@
  - fixed: PurgeOldInboxMessages just didn't work
  - fixed: Unable to delete data form entries
  - fixed: Select All checkbox in Asset Manager has returned
+ - fixed: DataForm Integer value zero does not pass validation
  - added: Page range (start-finish) to available paginator text
 
 7.5.22
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index 2ad1ed84a..a776a7805 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -1371,7 +1371,7 @@ sub www_process {
             });
             WebGUI::Macro::filter(\$value);
         }
-        if ($field->{status} eq "required" && (!$value || $value =~ /^\s*$/)) {
+        if ($field->{status} eq "required" && (! defined($value) || $value =~ /^\s*$/)) {
             push @errors, {
                 "error.message" => $field->{label} . " " . $i18n->get(29) . ".",
             };