Converting wobjects to use new global template mechanism.
This commit is contained in:
parent
50f9aa9171
commit
5ec7c67b66
20 changed files with 253 additions and 250 deletions
|
|
@ -49,11 +49,8 @@ sub new {
|
|||
my $property = shift;
|
||||
my $self = WebGUI::Wobject->new(
|
||||
-properties=>$property,
|
||||
-extendedProperties=>{
|
||||
templateId=>{
|
||||
defaultValue=>1
|
||||
}
|
||||
}
|
||||
-extendedProperties=>{},
|
||||
-useTemplate=>1,
|
||||
);
|
||||
bless $self, $class;
|
||||
}
|
||||
|
|
@ -82,14 +79,7 @@ sub www_deleteLinkConfirm {
|
|||
|
||||
#-------------------------------------------------------------------
|
||||
sub www_edit {
|
||||
my $layout = WebGUI::HTMLForm->new;
|
||||
my $properties = WebGUI::HTMLForm->new;
|
||||
$layout->template(
|
||||
-name=>"templateId",
|
||||
-value=>$_[0]->getValue("templateId"),
|
||||
-namespace=>$_[0]->get("namespace"),
|
||||
-afterEdit=>'func=edit&wid='.$_[0]->get("wobjectId")
|
||||
);
|
||||
if ($_[0]->get("wobjectId") eq "new") {
|
||||
$properties->whatNext(
|
||||
-options=>{
|
||||
|
|
@ -101,7 +91,6 @@ sub www_edit {
|
|||
}
|
||||
return $_[0]->SUPER::www_edit(
|
||||
-properties=>$properties->printRowsOnly,
|
||||
-layout=>$layout->printRowsOnly,
|
||||
-headingId=>10,
|
||||
-helpId=>1
|
||||
);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue