This commit is contained in:
Matthew Wilson 2005-12-12 05:51:59 +00:00
parent ac441a328d
commit f4e7161b13

View file

@ -1147,7 +1147,7 @@ sub processPropertiesFromFormPost {
foreach my $definition (@{$self->definition}) {
foreach my $property (keys %{$definition->{properties}}) {
if ($definition->{properties}{$property}{noFormPost}) {
$data{$property} = $definition->{properties}{$property}{defaultValue};
$data{$property} = $definition->{properties}{$property}{defaultValue} if $session{form}{func} eq 'add';
next;
}
$data{$property} = WebGUI::FormProcessor::process(