im_user_is_authorized conn args whyWhat it does:
Returns filter_ok if user is employeeDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
set user_id [ad_verify_and_get_user_id]
if { $user_id == 0 } {
# Not logged in
ns_db releasehandle $db
ad_returnredirect "/register/index?return_url=[ns_urlencode [ns_conn url]?[ns_conn query]]"
return filter_return
}
set db [ns_db gethandle]
set is_authorized_p [im_user_is_authorized_p $db $user_id]
ns_db releasehandle $db
if { $is_authorized_p > 0 } {
return filter_ok
} else {
ad_return_error "Access denied" "You must be an employee or otherwise authorized member of [ad_parameter SystemName] to see this page. You can <a href=/register/index?return_url=[ad_urlencode [im_url_with_query]]>login</a> as someone else if you like."
return filter_return
}