im_print_employee person rowspanWhat it does:
print function for org chartDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
set user_id [fst $person] set employee_name [snd $person] set currently_employed_p [thd $person] set job_title [lindex $person 3] if { $currently_employed_p == "t" } { if { $rowspan>=2 } { return "<a href=/intranet/users/view?[export_url_vars user_id]>$employee_name</a><br><i>$job_title</i>\n" } else { return "<a href=/intranet/users/view?[export_url_vars user_id]>$employee_name</a><br>\n" } } else { return "<i>Position Vacant</i>" }