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

Fixed security related bugs
author wizard
date Thu, 29 Apr 2010 01:31:27 +0400
parents a1498298d3ee
children 4d0e1962161c
line wrap: on
line diff
--- a/Lib/IMPL/Security/Rule/RoleCheck.pm	Wed Apr 28 17:50:55 2010 +0400
+++ b/Lib/IMPL/Security/Rule/RoleCheck.pm	Thu Apr 29 01:31:27 2010 +0400
@@ -5,7 +5,7 @@
 sub SatisfyAll {
 	my ($secPackage,$object,$desiredAccess,$context) = @_;
 	
-	my $roleEffective = new IMPL::Security::Role ( effective => $context->AssignedRoles );
+	my $roleEffective = new IMPL::Security::Role ( _effective => $context->rolesAssigned );
 	
 	return $roleEffective->Satisfy(ExtractRoles($object));
 }