im_num_employees_simple { db " " }What it does:
Returns # of employees.Defined in: /web/philip/tcl/intranet-defs.tcl
Source code:
if { [empty_string_p $db] } {
set db [ns_db gethandle subquery]
set release 1
} else {
set release 0
}
set num_employees [database_to_tcl_string $db "select count(time.percentage_time)
from im_employees_active info, im_employee_percentage_time time
where (time.percentage_time is not null and time.percentage_time > 0)
and (info.start_date < sysdate)
and time.start_block = to_date(next_day(sysdate-8, 'SUNDAY'), 'YYYY-MM-DD')
and time.user_id=info.user_id"]
if { $release } {
ns_db releasehandle $db
}
return $num_employees