im_user_is_employee_p db user_idWhat it does:
Returns 1 if a the user is in the employee group. 0 OtherwiseDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
return [database_to_tcl_string $db "select decode(ad_group_member_p($user_id, [im_employee_group_id $db]), 't', 1, 0) from dual"]