im_absent_employees_helper db sql purposeWhat it does:
Queries user_vacations and formats the resultsDefined 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" }