Update Redirect navigation to show how it really works.

Localize self-referential redirect URL message.

Beginning of EMS master documentation.
This commit is contained in:
Colin Kuskie 2006-02-02 23:10:31 +00:00
parent edc7e24d87
commit 2d90644e1c
3 changed files with 24 additions and 6 deletions

View file

@ -119,8 +119,8 @@ A web executable method that redirects the user to the specified page, or displa
sub www_view {
my $self = shift;
return $self->session->privilege->noAccess() unless $self->canView;
my $i18n = WebGUI::International->new($self->session, "Asset_Redirect");
if ($self->session->var->isAdminOn() && $self->canEdit) {
my $i18n = WebGUI::International->new($self->session, "Asset_Redirect");
return $self->getAdminConsole->render($i18n->get("what do you want to do with this redirect").'
<ul>
<li><a href="'.$self->get("redirectUrl").'">'.$i18n->get("go to the redirect url").'</a></li>
@ -131,7 +131,7 @@ sub www_view {
my $url = $self->get("redirectUrl");
WebGUI::Macro::process(\$url);
$self->session->http->setRedirect($url) unless $self->get("redirectUrl") eq $self->get("url");
return "Redirect is self-referential";
return $i18n->get('self_referential');
}
1;