Index: openacs-4/packages/contacts/tcl/contact-search-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-procs.xql,v diff -u -r1.16 -r1.17 --- openacs-4/packages/contacts/tcl/contact-search-procs.xql 18 May 2006 21:16:44 -0000 1.16 +++ openacs-4/packages/contacts/tcl/contact-search-procs.xql 19 May 2006 09:38:47 -0000 1.17 @@ -45,6 +45,14 @@ + + + select type + from contact_search_conditions + where search_id = :search_id + + + select count(distinct person_id) @@ -59,14 +67,29 @@ select count(distinct organization_id) - from organizations, $cr_from group_approved_member_map + from organizations, $cr_from + group_approved_member_map where organizations.organization_id = group_approved_member_map.member_id and group_approved_member_map.group_id in ([template::util::tcl_to_sql_list [contacts::default_groups -package_id $package_id]]) $cr_where $search_clause + + + select count(distinct person_id) + from persons, $cr_from + group_approved_member_map, + acs_rels + where persons.person_id = group_approved_member_map.member_id + and group_approved_member_map.group_id in ([template::util::tcl_to_sql_list [contacts::default_groups -package_id $package_id]]) + and persons.person_id = acs_rels.object_id_two + and acs_rels.rel_type = 'contact_rels_employment' + $cr_where + $search_clause + +