fixed redirect and added edit titles
This commit is contained in:
parent
892191fa3b
commit
b43baa8acb
5 changed files with 27 additions and 1 deletions
|
|
@ -89,6 +89,7 @@ sub getEditForm {
|
|||
-label=>"Redirect URL",
|
||||
-value=>$self->getValue("redirectUrl")
|
||||
);
|
||||
return $tabform;
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -126,6 +127,13 @@ sub getName {
|
|||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
sub www_edit {
|
||||
my $self = shift;
|
||||
return WebGUI::Privilege::insufficient() unless $self->canEdit;
|
||||
return $self->getAdminConsole->render($self->getEditForm->print,"Edit Redirect");
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 www_view
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue