Mercurial > pub > Impl

comparison Lib/IMPL/Security/Rule/RoleCheck.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents 79bf75223afe
children 6d8092d8ce1b
comparison
equal deleted inserted replaced
193:8e8401c0aea4 194:4d0e1962161c
1 package IMPL::Security::Rule::RoleCheck; 1 package IMPL::Security::Rule::RoleCheck;
2 2
3 require IMPL::Security::Role; 3 require IMPL::Security::Role;
4 4
5 sub SatisfyAll { 5 sub SatisfyAll {
6 my ($secPackage,$object,$desiredAccess,$context) = @_; 6 my ($secPackage,$object,$desiredAccess,$context) = @_;
7 7
8 my $roleEffective = new IMPL::Security::Role ( _effective => $context->rolesAssigned ); 8 my $roleEffective = new IMPL::Security::Role ( _effective => $context->rolesAssigned );
9 9
10 return $roleEffective->Satisfy(ExtractRoles($object)); 10 return $roleEffective->Satisfy(ExtractRoles($object));
11 } 11 }
12 12
13 sub _ExtractRoles { 13 sub _ExtractRoles {
14 return (); 14 return ();
15 } 15 }
16 16