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