oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed bug 705456

Browse source
This commit is contained in:
JT Smith 2003-03-23 20:25:42 +00:00
parent 2ff5393fd4
commit 955c903ea4
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Wobject.pm
View file

@ -1302,13 +1302,17 @@ sub www_editSave {
my %set; my %set;
foreach my $key (keys %{$_[0]->{_wobjectProperties}}) { foreach my $key (keys %{$_[0]->{_wobjectProperties}}) {
if (exists $session{form}{$key}) { if (exists $session{form}{$key}) {
$set{$key} = _validateField($key,$_[0]->{_wobjectProperties}{$key}{fieldType}) || $_[0]->{_wobjectProperties}{$key}{defaultValue}; $set{$key} = _validateField($key,$_[0]->{_wobjectProperties}{$key}{fieldType});
} else {
$set{$key} = $_[0]->{_wobjectProperties}{$key}{defaultValue};
} }
} }
$set{title} = $session{form}{title} || $_[0]->name; $set{title} = $session{form}{title} || $_[0]->name;
foreach my $key (keys %{$_[0]->{_extendedProperties}}) { foreach my $key (keys %{$_[0]->{_extendedProperties}}) {
if (exists $session{form}{$key}) { if (exists $session{form}{$key}) {
$set{$key} = _validateField($key,$_[0]->{_extendedProperties}{$key}{fieldType}) || $_[0]->{_extendedProperties}{$key}{defaultValue}; $set{$key} = _validateField($key,$_[0]->{_extendedProperties}{$key}{fieldType});
} else {
$set{$key} = $_[0]->{_extendedProperties}{$key}{defaultValue};
} }
} }
%set = (%set, %{$_[1]}); %set = (%set, %{$_[1]});