Add a method that returns the URL for the assetManager.

This commit is contained in:
Colin Kuskie 2009-06-19 18:05:22 +00:00
parent e518dbe1b3
commit cd0bf74fc7

View file

@ -1210,6 +1210,21 @@ sub getIsa {
}
#-------------------------------------------------------------------
=head2 getManagerUrl ( )
Returns the URL for the asset manager.
=cut
sub getManagerUrl {
my $self = shift;
return $self->getUrl( 'op=assetManager' );
}
#-------------------------------------------------------------------
=head2 getMedia ( session )
@ -1484,7 +1499,7 @@ sub getToolbar {
if ($userUiLevel >= $uiLevels->{"manage"}) {
$output
.= '<li class="yuimenuitem"><a class="yuimenuitemlabel" href="'
. $self->getUrl("op=assetManager") . '">' . $i18n->get("manage") . '</a></li>';
. $self->getManagerUrl . '">' . $i18n->get("manage") . '</a></li>';
}
$output .= '</ul></div></div>' . $toolbar . '</div>';
$self->{_toolbar} = $output;
@ -2665,7 +2680,7 @@ sub www_changeUrlConfirm {
}
if ($self->session->form->param("proceed") eq "manageAssets") {
$self->session->http->setRedirect($self->getUrl('op=assetManager'));
$self->session->http->setRedirect($self->getManagerUrl);
} else {
$self->session->http->setRedirect($self->getUrl());
}
@ -2795,7 +2810,7 @@ compatibility)
sub www_manageAssets {
my $self = shift;
$self->session->http->setRedirect( $self->getUrl( 'op=assetManager' ) );
$self->session->http->setRedirect( $self->getManagerUrl );
return "redirect";
}