fixed a bug where wobjects would lose their sequence number when edited.

This commit is contained in:
JT Smith 2003-05-18 20:36:34 +00:00
parent a716541e0c
commit 864a88c322
2 changed files with 4 additions and 10 deletions

View file

@ -1410,19 +1410,21 @@ sub www_editSave {
return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());
my %set;
foreach my $key (keys %{$_[0]->{_wobjectProperties}}) {
$set{$key} = WebGUI::FormProcessor::process(
my $temp = WebGUI::FormProcessor::process(
$key,
$_[0]->{_wobjectProperties}{$key}{fieldType},
$_[0]->{_wobjectProperties}{$key}{defaultValue}
);
$set{$key} = $temp if (defined $temp);
}
$set{title} = $session{form}{title} || $_[0]->name;
foreach my $key (keys %{$_[0]->{_extendedProperties}}) {
$set{$key} = WebGUI::FormProcessor::process(
my $temp = WebGUI::FormProcessor::process(
$key,
$_[0]->{_extendedProperties}{$key}{fieldType},
$_[0]->{_extendedProperties}{$key}{defaultValue}
);
$set{$key} = $temp if (defined $temp);
}
%set = (%set, %{$_[1]});
$_[0]->set(\%set);

View file

@ -79,14 +79,6 @@ sub uiLevel {
sub www_edit {
my $properties = WebGUI::HTMLForm->new;
my $layout = WebGUI::HTMLForm->new;
$properties->hidden(
-name=>"proxiedNamespace",
-value=>$_[0]->get("proxiedNamespace")
);
$properties->hidden(
-name=>"proxiedWobjectId",
-value=>$_[0]->get("proxiedWobjectId")
);
$layout->template(
-name=>"proxiedTemplateId",
-value=>$_[0]->getValue("proxiedTemplateId"),