From fd038fd0c84af62784bac6ea1a0a6a11473843ef Mon Sep 17 00:00:00 2001
From: Kaleb Murphy <perlmonkey2@webgui-svn>
Date: Mon, 8 Sep 2008 20:59:05 +0000
Subject: [PATCH] Form/Integer now shows 0 in post submission page (Thanks
 perlDreamer)

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

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index d318109d7..53e011270 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -27,6 +27,7 @@
  - fixed: Show Message On Login doesn't show after anon registration
  - fixed: Settings - Show Message On Login behaviour
  - fixed: Page Layout templates generate invalid HTML with description
+ - fixed: Form/Integer now shows 0 in the results page
 
 7.5.22
  - fixed: Layout template now gets prepared correctly
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index a776a7805..af049e7c9 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -651,7 +651,7 @@ sub getRecordTemplateVars {
         if ($entry) {
             $value = $entryData->{ $field->{name} };
         }
-        elsif (!$ignoreForm && (my $formValue = $self->session->form->process($field->{name}))) {
+        elsif (!$ignoreForm && defined (my $formValue = $self->session->form->process($field->{name}))) {
             $value = $formValue;
         }
         my $hidden = ($field->{status} eq 'hidden' && !$self->session->var->isAdminOn) || ($field->{isMailField} && !$self->get('mailData'));
diff --git a/lib/WebGUI/FormValidator.pm b/lib/WebGUI/FormValidator.pm
index d34b1da03..02e8555a8 100644
--- a/lib/WebGUI/FormValidator.pm
+++ b/lib/WebGUI/FormValidator.pm
@@ -177,6 +177,7 @@ sub process {
 		if ($value =~ /^[\s]+$/) {
 			return undef;
 		}
+$self->session->log->error("FormValidator $value");
 		return $value;
 	}
 }