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

Fixed a bug in the USS code related to the new wobject API.

Browse source
This commit is contained in:
JT Smith 2003-03-12 04:12:17 +00:00
parent c3c06514f3
commit 8023b83436
2 changed files with 7 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Wobject.pm
View file

@ -1300,15 +1300,15 @@ A hash reference of extra properties to set.
sub www_editSave {
return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());
my %set;
foreach (keys %{$_[0]->{_wobjectProperties}}) {
if (exists $session{form}{$_}) {
$set{$_} = _validateField($_,$_[0]->{_wobjectProperties}{$_}{fieldType}) || $_[0]->{_wobjectProperties}{$_}{defaultValue};
foreach my $key (keys %{$_[0]->{_wobjectProperties}}) {
if (exists $session{form}{$key}) {
$set{$key} = _validateField($key,$_[0]->{_wobjectProperties}{$key}{fieldType}) || $_[0]->{_wobjectProperties}{$key}{defaultValue};
}
}
$set{title} = $session{form}{title} || $_[0]->name;
foreach (keys %{$_[0]->{_extendedProperties}}) {
if (exists $session{form}{$_}) {
$set{$_} = _validateField($_,$_[0]->{_extendedProperties}{$_}{fieldType}) || $_[0]->{_extendedProperties}{$_}{defaultValue};
foreach my $key (keys %{$_[0]->{_extendedProperties}}) {
if (exists $session{form}{$key}) {
$set{$key} = _validateField($key,$_[0]->{_extendedProperties}{$key}{fieldType}) || $_[0]->{_extendedProperties}{$key}{defaultValue};
}
}
%set = (%set, %{$_[1]});