From b143376cf055fb0caf54d25cde70276dda7f9e2c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 15 Aug 2008 18:38:12 +0000
Subject: [PATCH] handle the values 0 and empty string in getOriginalValue

---
 lib/WebGUI/Form/Control.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Form/Control.pm b/lib/WebGUI/Form/Control.pm
index 47b955730..c35c68410 100644
--- a/lib/WebGUI/Form/Control.pm
+++ b/lib/WebGUI/Form/Control.pm
@@ -419,7 +419,9 @@ Returns the either the "value" or "defaultValue" passed in to the object in that
 
 sub getOriginalValue {
     my $self = shift;
-    return $self->get("value") || $self->getDefaultValue();
+    my $value = $self->get('value');
+    return $value if (defined $value);  ##Handle returning 0 and empty string
+    return $self->getDefaultValue;
 }
 
 #-------------------------------------------------------------------