added privilege check - only content managers can create shortcuts

This commit is contained in:
Lucas Bartholemy 2006-05-17 19:38:55 +00:00
parent 27e7d288da
commit 612f08b37c

View file

@ -211,6 +211,7 @@ sub www_copyList {
sub www_createShortcut () {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->session->user->isInGroup(4));
my $isOnDashboard = ref $self->getParent eq 'WebGUI::Asset::Wobject::Dashboard';
my $target = $isOnDashboard ? $self->getParent : $self;
my $child = $target->addChild({