fixed redirect and added edit titles

This commit is contained in:
JT Smith 2004-12-25 19:43:27 +00:00
parent 892191fa3b
commit b43baa8acb
5 changed files with 27 additions and 1 deletions

View file

@ -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