Mercurial > pub > Impl

diff Lib/IMPL/Security/Context.pm @ 94:79bf75223afe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed security related bugs
author wizard
date Thu, 29 Apr 2010 01:31:27 +0400
parents 077357224bec
children 67eb8eaec3d4
line wrap: on
line diff
--- a/Lib/IMPL/Security/Context.pm	Wed Apr 28 17:50:55 2010 +0400
+++ b/Lib/IMPL/Security/Context.pm	Thu Apr 29 01:31:27 2010 +0400
@@ -65,6 +65,14 @@
 	$current;
 }
 
+sub Satisfy {
+	my ($this,@roles) = @_;
+	
+	my $roleEffective = new IMPL::Security::Role ( _effective => $this->rolesAssigned );
+	
+	return $roleEffective->Satisfy(@roles);
+}
+
 1;
 
 __END__