Bug 38721

Bug: 38721

Impact:

Product:

GemStone/S 64 Bit

Versions:

2.2.5.4, 2.2.5.3, 2.2.5.2, 2.2.5.1, 2.2.4, 2.2.3, 2.2.2, 2.2.1, 2.2., 2.2, 2.1.4, 2.1.x, 1.2.5, 1.2.4, 1.2.x, 1.1.14, 1.x

Platform:

All

Fixed In:

2.3

AllUsers usersInGroup: errors

The method UserProfileSet >> usersInGroup: invokes methods that are now disallowed, resulting in an error.

Workaround

File in the following as SystemUser and commit:

category: 'Group Membership'
method: UserProfileSet
usersInGroup: aGroupString

"Returns all the elements of the receiver that are in the group represented by
aGroupString.  If the current session does not have the authorizations required
for this operation, raises an error."

| theGroup |
theGroup := AllGroups _validateGroupString: aGroupString .
^ self select: [:each | (each groups includesIdentical: theGroup)]
%