Re: Authorization and scopesRe: Authorization and scopes
Old forum URL: forums.lhotka.net/forums/t/3777.aspx
JoeFallon1 posted on Wednesday, October 24, 2007
Does this work for you?
Public
Class Check
Private Shared Function HasPermission(ByVal permission As String) As Boolean
Dim user As PNIUser = DirectCast(Csla.ApplicationContext.User, PNIUser)
Return user.HasPermission(permission)
End Function
Public Shared Function CanAddObject(ByVal permission As String) As Boolean
Return HasPermission(permission)
End Function
Public Shared Function CanGetObject(ByVal permission As String) As Boolean
Return HasPermission(permission)
End Function
Public Shared Function CanDeleteObject(ByVal permission As String) As Boolean
Return HasPermission(permission)
End Function
Public Shared Function CanEditObject(ByVal permission As String) As Boolean
Return HasPermission(permission)
End Function
End Class
Joe
Copyright (c) Marimer LLC