Use JOIN in RWebApplication::getLoginUser().
RWebApplication: Cache LoginUser.