added LSL2 stored procedures
This commit is contained in:
9
LSL2/STPROC/ADMIN_USER.txt
Normal file
9
LSL2/STPROC/ADMIN_USER.txt
Normal file
@ -0,0 +1,9 @@
|
||||
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
|
Reference in New Issue
Block a user