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

@ -68,6 +68,11 @@ sub addPage {
return addAsset( $parent, { title => $title, className => "WebGUI::Asset::Wobject::Layout", displayTitle => 0 } );
}
sub canView {
my ( $self ) = @_;
return $self->session->user->isAdmin;
}
sub wrapStyle {
return WebGUI::Wizard::Setup::wrapStyle( @_ );
}