Converting wobjects to use new global template mechanism.

This commit is contained in:
JT Smith 2003-05-18 00:22:31 +00:00
parent 50f9aa9171
commit 5ec7c67b66
20 changed files with 253 additions and 250 deletions

View file

@ -39,11 +39,9 @@ sub new {
my $self = WebGUI::Wobject->new(
-properties=>$property,
-extendedProperties=>{
rssUrl=>{},
templateId=>{
defaultValue=>1
}
}
rssUrl=>{}
},
-useTemplate=>1
);
bless $self, $class;
}
@ -57,21 +55,13 @@ sub uiLevel {
#-------------------------------------------------------------------
sub www_edit {
my $properties = WebGUI::HTMLForm->new;
my $layout = WebGUI::HTMLForm->new;
$properties->url(
-name=>"rssUrl",
-label=>WebGUI::International::get(1,$_[0]->get("namespace")),
-value=>$_[0]->getValue("rssUrl")
);
$layout->template(
-name=>"templateId",
-value=>$_[0]->getValue("templateId"),
-namespace=>$_[0]->get("namespace"),
-afterEdit=>'func=edit&wid='.$_[0]->get("wobjectId")
);
return $_[0]->SUPER::www_edit(
-properties=>$properties->printRowsOnly,
-layout=>$layout->printRowsOnly,
-headingId=>4,
-helpId=>1
);