annotate Lib/IMPL/Security/Rule/RoleCheck.pm @ 241:f48a1a9f4fa2
+Added ViewResult to allow implementation of the view environment.
*TTDocuments now storing creation parameters
*TTControls automatically propagating layout and title meta to their attributes
+Added UnauthorizaedException web exception
*minor fixes
author |
sergey |
date |
Thu, 18 Oct 2012 04:49:55 +0400 |
parents |
6d8092d8ce1b |
children |
|
rev |
line source |
51
|
1 package IMPL::Security::Rule::RoleCheck;
|
230
|
2 use strict;
|
51
|
3
|
|
4 require IMPL::Security::Role;
|
|
5
|
|
6 sub SatisfyAll {
|
194
|
7 my ($secPackage,$object,$desiredAccess,$context) = @_;
|
|
8
|
|
9 my $roleEffective = new IMPL::Security::Role ( _effective => $context->rolesAssigned );
|
|
10
|
|
11 return $roleEffective->Satisfy(ExtractRoles($object));
|
51
|
12 }
|
|
13
|
|
14 sub _ExtractRoles {
|
194
|
15 return ();
|
51
|
16 }
|
|
17
|
230
|
18 1;
|