im_num_offices_simple { db " " }What it does:
Returns # of offices.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_offices [database_to_tcl_string $db "select count(1)
from user_groups
where parent_group_id = [im_office_group_id $db]"]
if { $release } {
ns_db releasehandle $db
}
return $num_offices