im_absent_employees db { coverage "1" } { report_date " " } { purpose " " }What it does:
Returns a string that gives a list of vacationing employeesDefined in: /web/philip/tcl/intranet-status-report-defs.tcl
Source code:
if { [empty_string_p $report_date] } { set report_date_sql "sysdate" } else { # add quotes for sql set report_date_sql "'$report_date'" } set sql "select u.user_id, u.first_names, u.last_name, u.email, uv.end_date, uv.description, uv.vacation_type, to_char(uv.start_date,'Mon DD, YYYY') || ' - ' || to_char(uv.end_date,'Mon DD, YYYY') as dates from im_employees_active u, user_vacations uv where u.user_id = uv.user_id and trunc(uv.start_date) <= trunc(to_date($report_date_sql, 'YYYY-MM-DD')) and trunc(uv.end_date) >= trunc(to_date($report_date_sql, 'YYYY-MM-DD') + $coverage) order by uv.vacation_type, uv.start_date" return [im_absent_employees_helper $db $sql $purpose]