im_print_employee

one of the documented procedures in this installation of the ACS
Usage:
im_print_employee   person   rowspan
What it does:
print function for org chart
Defined 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>"
    }


philg@mit.edu