16 lines
273 B
Plaintext
16 lines
273 B
Plaintext
COMPILE FUNCTION MemberOf(User,Group)
|
|
|
|
$INSERT LOGICAL
|
|
$INSERT LSL_USERS_EQU
|
|
|
|
UserGroups = XLATE( 'LSL_USERS', User, LSL_USERS_GROUPS$, 'X' )
|
|
|
|
LOCATE Group IN UserGroups USING @VM SETTING Dummy THEN
|
|
Valid = TRUE$
|
|
END ELSE
|
|
Valid = FALSE$
|
|
END
|
|
|
|
RETURN Valid
|
|
|