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

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
line wrap: on
line diff
--- a/Lib/IMPL/Security/Rule/RoleCheck.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Security/Rule/RoleCheck.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -3,14 +3,14 @@
 require IMPL::Security::Role;
 
 sub SatisfyAll {
-	my ($secPackage,$object,$desiredAccess,$context) = @_;
-	
-	my $roleEffective = new IMPL::Security::Role ( _effective => $context->rolesAssigned );
-	
-	return $roleEffective->Satisfy(ExtractRoles($object));
+    my ($secPackage,$object,$desiredAccess,$context) = @_;
+    
+    my $roleEffective = new IMPL::Security::Role ( _effective => $context->rolesAssigned );
+    
+    return $roleEffective->Satisfy(ExtractRoles($object));
 }
 
 sub _ExtractRoles {
-	return ();
+    return ();
 }