im_num_offices_simple

one of the documented procedures in this installation of the ACS
Usage:
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


philg@mit.edu