add permissions checks for wizards
This commit is contained in:
parent
09092a13b6
commit
d073b83c9f
3 changed files with 21 additions and 1 deletions
|
|
@ -99,6 +99,10 @@ them again after everything's done.
|
|||
sub dispatch {
|
||||
my ($self) = @_;
|
||||
|
||||
if ( !$self->canView ) {
|
||||
return $self->session->privilege->noAccess;
|
||||
}
|
||||
|
||||
# See if we process a form
|
||||
if ( my $step = $self->getCurrentStep ) {
|
||||
$self->session->log->info( "Processing " . $step );
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue