add permissions checks for wizards

This commit is contained in:
Doug Bell 2010-04-29 11:35:23 -05:00
parent 09092a13b6
commit d073b83c9f
3 changed files with 21 additions and 1 deletions

View file

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