Exemple #1
0
        public static SUserRow LoadUser(String AUserID, out TPetraPrincipal APetraPrincipal)
        {
            SUserRow ReturnValue;

            Ict.Petra.Shared.Security.TPetraIdentity PetraIdentity;

            ReturnValue = LoadUser(AUserID, out PetraIdentity);

            APetraPrincipal = new TPetraPrincipal(PetraIdentity, TGroupManager.LoadUserGroups(
                    AUserID), TTableAccessPermissionManager.LoadTableAccessPermissions(
                    AUserID), TModuleAccessManager.LoadUserModules(AUserID));

/*
 *          TLogging.LogAtLevel (8, "APetraPrincipal.IsTableAccessOK(tapMODIFY, 'p_person'): " +
 *                  APetraPrincipal.IsTableAccessOK(TTableAccessPermission.tapMODIFY, "p_person").ToString());
 */
            return ReturnValue;
        }
 static private void SetUserInfoForSession(TPetraPrincipal userinfo)
 {
     TSession.SetVariable("UserInfo", userinfo);
 }