Migrated all wobjects to use the new tab form interface.

docs/upgrades/upgrade_5.1.2-5.2.0.sql

@@ -99,9 +99,22 @@ delete from international where languageId=1 and namespace='WebGUI' and internat
 insert into international (internationalId,languageId,namespace,message,lastUpdated) values (526,1,'WebGUI','Remove JavaScript and macros.', 1046604649);
 delete from international where languageId=1 and namespace='WebGUI' and internationalId=891;
 insert into international (internationalId,languageId,namespace,message,lastUpdated) values (891,1,'WebGUI','Remove only macros.', 1046604579);
-
+alter table USS add column filterContent varchar(30) not null default 'javascript';
-
+delete from international where languageId=1 and namespace='WebGUI' and internationalId=420;
-
+insert into international (internationalId,languageId,namespace,message,lastUpdated) values (420,1,'WebGUI','Remove nothing.', 1046637549);
+delete from international where languageId=1 and namespace='WebGUI' and internationalId=419;
+insert into international (internationalId,languageId,namespace,message,lastUpdated) values (419,1,'WebGUI','Remove everything but the text.', 1046637533);
+delete from international where languageId=1 and namespace='WebGUI' and internationalId=892;
+insert into international (internationalId,languageId,namespace,message,lastUpdated) values (892,1,'WebGUI','Discussion', 1046637952);
+delete from international where languageId=1 and namespace='WebGUI' and internationalId=893;
+insert into international (internationalId,languageId,namespace,message,lastUpdated) values (893,1,'WebGUI','Wobject Properties', 1046638419);
+delete from international where languageId=1 and namespace='WebGUI' and internationalId=103;
+insert into international (internationalId,languageId,namespace,message,lastUpdated) values (103,1,'WebGUI','Page Properties', 1046638742);
+delete from international where languageId=1 and namespace='WebGUI' and internationalId=105;
+insert into international (internationalId,languageId,namespace,message,lastUpdated) values (105,1,'WebGUI','Layout', 1046638916);
+update international set internationalId=894, namespace='WebGUI' where internationalId=18 and namespace='Article';
+alter table wobject add column allowDiscussion int not null default 0;
+delete from international where namespace='HttpProxy' and internationalId=7;
 
 
 

lib/WebGUI/Form.pm

@@ -43,6 +43,7 @@ Base forms package. Eliminates some of the normal code work that goes along with
  $html = WebGUI::Form::fieldType({name=>"fieldType",types=>\%supportedTypes});
  $html = WebGUI::Form::file({name=>"image"});
  $html = WebGUI::Form::formHeader();
+ $html = WebGUI::Form::filterContent({value=>"javascript"});
  $html = WebGUI::Form::group({name=>"groupToPost"});
  $html = WebGUI::Form::hidden({name=>"wid",value=>"55"});
  $html = WebGUI::Form::hiddenList({name=>"wid",value=>"55",options=>\%options});

lib/WebGUI/Wobject.pm

@@ -14,6 +14,7 @@ package WebGUI::Wobject;
 
 =cut
 
+use CGI::Util qw(rearrange);
 use DBI;
 use strict qw(subs vars);
 use Tie::IxHash;
@@ -24,9 +25,10 @@ use WebGUI::Icon;
 use WebGUI::International;
 use WebGUI::Macro;
 use WebGUI::Node;
+use WebGUI::Page;
 use WebGUI::Session;
 use WebGUI::SQL;
-use WebGUI::Page;
+use WebGUI::TabForm;
 use WebGUI::Template;
 use WebGUI::URL;
 use WebGUI::Utility;
@@ -1052,34 +1054,56 @@ The custom form rows from the wobject subclass edit page.
 =cut
 
 sub www_edit {
+	my ($self, @p) = @_;
+        my ($properties, $layout, $privileges) = rearrange([qw(properties layout privileges)], @p);
         my ($f, $startDate, $displayTitle, $title, $templatePosition, $endDate);
         if ($_[0]->get("wobjectId") eq "new") {
                	$displayTitle = 1;
         } else {
         	$displayTitle = $_[0]->get("displayTitle");
         }
-	$title = $_[0]->get("title") || $_[0]->get("namespace");
+	$title = $_[0]->get("title") || $_[0]->name;
 	$templatePosition = $_[0]->get("templatePosition") || 1;
 	$startDate = $_[0]->get("startDate") || $session{page}{startDate};
 	$endDate = $_[0]->get("endDate") || $session{page}{endDate};
-	$f = WebGUI::HTMLForm->new;
+	my %tabs;
-	$f->hidden("wid",$_[0]->get("wobjectId"));
+	tie %tabs, 'Tie::IxHash';
-	$f->hidden("namespace",$_[0]->get("namespace")) if ($_[0]->get("wobjectId") eq "new");
+	%tabs = (	
-	$f->hidden("func","editSave");
+		properties=>{
-	$f->submit if ($_[0]->get("wobjectId") ne "new");
+			label=>WebGUI::International::get(893)
-	$f->readOnly(
+			},
+		layout=>{
+                        label=>WebGUI::International::get(105),
+                        uiLevel=>5
+                        },
+                privileges=>{
+                        label=>WebGUI::International::get(107),
+                        uiLevel=>9
+                        }
+		);
+	if ($_[0]->{_useDiscussion}) {
+		$tabs{discussion} = {
+			label=>WebGUI::International::get(892),
+			uiLevel=>7
+			};
+	}
+	$f = WebGUI::TabForm->new(\%tabs);
+	$f->hidden({name=>"wid",value=>$_[0]->get("wobjectId")});
+	$f->hidden({name=>"namespace",value=>$_[0]->get("namespace")}) if ($_[0]->get("wobjectId") eq "new");
+	$f->hidden({name=>"func",value=>"editSave"});
+	$f->getTab("properties")->readOnly(
 		-value=>$_[0]->get("wobjectId"),
 		-label=>WebGUI::International::get(499),
 		-uiLevel=>3
 		);
-	$f->text("title",WebGUI::International::get(99),$title);
+	$f->getTab("properties")->text("title",WebGUI::International::get(99),$title);
-	$f->yesNo(
+	$f->getTab("layout")->yesNo(
 		-name=>"displayTitle",
 		-label=>WebGUI::International::get(174),
 		-value=>$displayTitle,
 		-uiLevel=>5
 		);
-	$f->select(
+	$f->getTab("layout")->select(
 		-name=>"templatePosition",
 		-label=>WebGUI::International::get(363),
 		-value=>[$templatePosition],
@@ -1087,28 +1111,35 @@ sub www_edit {
 		-options=>WebGUI::Page::getTemplatePositions($session{page}{templateId}),
 		-subtext=>WebGUI::Page::drawTemplate($session{page}{templateId})
 		);
-	$f->date(
+	$f->getTab("privileges")->date(
 		-name=>"startDate",
 		-label=>WebGUI::International::get(497),
 		-value=>$startDate,
 		-uiLevel=>9
 		);
-	$f->date(
+	$f->getTab("privileges")->date(
 		-name=>"endDate",
 		-label=>WebGUI::International::get(498),
 		-value=>$endDate,
 		-uiLevel=>9
 		);
-	$f->HTMLArea(
+	$f->getTab("properties")->HTMLArea(
 		-name=>"description",
 		-label=>WebGUI::International::get(85),
 		-value=>$_[0]->get("description")
 		);
-	$f->raw($_[1]);
+	$f->getTab("properties")->raw($properties);
+	$f->getTab("layout")->raw($layout);
+	$f->getTab("privileges")->raw($privileges);
 	if ($_[0]->{_useDiscussion}) {
-		$f->raw($_[0]->discussionProperties);
+		$f->getTab("discussion")->yesNo(
+                	-name=>"allowDiscussion",
+                	-label=>WebGUI::International::get(894),
+                	-value=>$_[0]->get("allowDiscussion"),
+                	-uiLevel=>5
+                	);
+		$f->getTab("discussion")->raw($_[0]->discussionProperties);
 	}
-	$f->submit;
 	return $f->print; 
 }