11 lines
216 B
Plaintext
11 lines
216 B
Plaintext
compile function admin_user( UserToCheck )
|
|
begin condition
|
|
pre:
|
|
post:
|
|
end condition
|
|
$insert logical
|
|
$insert lsl_users_equ
|
|
Valid = xlate( 'LSL_USERS', UserToCheck, lsl_users_admin_user$, 'X' )
|
|
return Valid
|
|
|