From 864a88c322ef40bc1409849cbecdc69afb15f477 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Sun, 18 May 2003 20:36:34 +0000 Subject: [PATCH] fixed a bug where wobjects would lose their sequence number when edited. --- lib/WebGUI/Wobject.pm | 6 ++++-- lib/WebGUI/Wobject/WobjectProxy.pm | 8 -------- 2 files changed, 4 insertions(+), 10 deletions(-) diff --git a/lib/WebGUI/Wobject.pm b/lib/WebGUI/Wobject.pm index f6d625090..3668d88da 100644 --- a/lib/WebGUI/Wobject.pm +++ b/lib/WebGUI/Wobject.pm @@ -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); diff --git a/lib/WebGUI/Wobject/WobjectProxy.pm b/lib/WebGUI/Wobject/WobjectProxy.pm index fcb8d3bf7..375d7f0ed 100644 --- a/lib/WebGUI/Wobject/WobjectProxy.pm +++ b/lib/WebGUI/Wobject/WobjectProxy.pm @@ -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"),