im_absent_employees_helper

one of the documented procedures in this installation of the ACS
Usage:
im_absent_employees_helper   db   sql   purpose
What it does:
Queries user_vacations and formats the results
Defined in: /web/philip/tcl/intranet-status-report-defs.tcl

Source code:



    set selection [ns_db select $db $sql]
    
    set web_string [list]
    set text_string [list]
    
    set last_type ""
    while {[ns_db getrow $db $selection]} {
	set_variables_after_query

	if { [string compare $last_type $vacation_type] != 0 } {
	    if { ![empty_string_p $last_type] } {
		append web_string "</ul>\n"
		append text_string "\n"
	    }
	    append web_string "<li><b>$vacation_type</b>\n<ul>\n"
	    append text_string "[string toupper $vacation_type]\n"
	    set last_type $vacation_type
	}
	
	append web_string "  <li> <a href=[im_url_stub]/users/view.tcl?[export_url_vars user_id]>$first_names $last_name</a> - $dates: $description\n"
	
	append text_string "[wrap_string "* $first_names $last_name - $dates: $description"]\n"
    }

    if { [empty_string_p $web_string] } {
	return "None\n"
    }
    
    if {$purpose == "web_display"} {
	# Close out the previously opened ul tag
	append web_string "</ul>\n"
	return "<ul>$web_string</ul>\n"
    } else {
	return "$text_string\n"
    }


philg@mit.edu