hours_sum db on_which_table on_what_id { number_days " " }What it does:
Returns the total hours registered for the specified table and id. 'on_what_id in' is used so that we can sum over a group of projects if desired.Defined in: /web/philip/tcl/intranet-defs.tcl
Source code:
if { [empty_string_p $number_days] } {
set days_back_sql ""
} else {
set days_back_sql " and day >= sysdate-$number_days"
}
set num [database_to_tcl_string $db "select sum(hours)
from im_hours
where on_what_id in $on_what_id
and on_which_table='[DoubleApos $on_which_table]'$days_back_sql"]
return [util_decode $num "" 0 $num]