im_late_project_reports db user_id { html_p "t" } { number_days "7" }What it does:
Returns either a text or html block describing late project reportsDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
set return_string "" foreach { group_name group_id } [im_list_late_project_report_groups_for_user $db $user_id $number_days] { if {$html_p == "t"} { append return_string "<li><b>Late project report:</b> <a href=[im_url_stub]/projects/report-add?[export_url_vars group_id]>$group_name</a>" } else { append return_string "$group_name: [im_url]/projects/report-add.tcl?[export_url_vars group_id] " } } return $return_string