From 5ee1f5e6195054da55814915ff89219049ef83a7 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 29 Mar 2003 19:41:03 +0000
Subject: [PATCH] fixed bug 710517

---
 lib/WebGUI/Wobject.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Wobject.pm b/lib/WebGUI/Wobject.pm
index aea5df647..e05595d37 100644
--- a/lib/WebGUI/Wobject.pm
+++ b/lib/WebGUI/Wobject.pm
@@ -1303,7 +1303,7 @@ sub www_editSave {
 	foreach my $key (keys %{$_[0]->{_wobjectProperties}}) {
 		if (exists $session{form}{$key}) {
 			$set{$key} = _validateField($key,$_[0]->{_wobjectProperties}{$key}{fieldType});
-		} else {
+		} elsif (exists $_[0]->{_wobjectProperties}{$key}{defaultValue}) {
 			$set{$key} = $_[0]->{_wobjectProperties}{$key}{defaultValue};
 		}
 	}
@@ -1311,7 +1311,7 @@ sub www_editSave {
 	foreach my $key (keys %{$_[0]->{_extendedProperties}}) {
 		if (exists $session{form}{$key}) {	
 			$set{$key} = _validateField($key,$_[0]->{_extendedProperties}{$key}{fieldType});
-		} else {
+		} elsif (exists $_[0]->{_extendedProperties}{$key}{defaultValue}) {
 			$set{$key} = $_[0]->{_extendedProperties}{$key}{defaultValue};
 		}
 	}