From b3f5e8969017bd3fd9278d3cb5d3ab23ad0d79cc Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 9 Aug 2011 20:19:40 -0700
Subject: [PATCH] Take the object's default as a defaultValue for the form if
 there are no config file overrides.  However, always provide one.

---
 lib/WebGUI/Asset.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 5379efd34..40003283e 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -2326,7 +2326,8 @@ sub processEditForm {
 
 
         # process the form element
-        $data{$property} = $form->process( $property, $fieldType, $fieldHash->{defaultValue}, $fieldHash );
+        my $defaultValue = $overrides->{defaultValue} // $self->$property;
+        $data{$property} = $form->process( $property, $fieldType, $defaultValue, $fieldHash );
     } ## end foreach my $property ( $self...)
 
     $data{keywords} = $form->process("keywords");