Index: openacs-4/packages/contacts/tcl/contact-search-widget-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-widget-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/tcl/contact-search-widget-procs.xql	27 Mar 2006 07:44:10 -0000	1.2
+++ openacs-4/packages/contacts/tcl/contact-search-widget-procs.xql	17 Apr 2006 06:29:36 -0000	1.3
@@ -8,7 +8,7 @@
           from persons, parties, group_distinct_member_map
          where persons.person_id = parties.party_id
            and persons.person_id = group_distinct_member_map.member_id
-           and group_distinct_member_map.group_id in ([template::util::tcl_to_sql_list [contacts::default_groups]])
+           and group_distinct_member_map.group_id in ([template::util::tcl_to_sql_list [contacts::default_groups -package_id $package_id]])
         [contact::search::query_clause -and -query $query -party_id "persons.person_id"]
          order by upper(persons.first_names) asc, upper(persons.last_name) asc
 	 limit 51
@@ -21,7 +21,7 @@
           from organizations, parties, group_distinct_member_map
          where organizations.organization_id = parties.party_id
            and organizations.organization_id = group_distinct_member_map.member_id
-           and group_distinct_member_map.group_id in ([template::util::tcl_to_sql_list [contacts::default_groups]])
+           and group_distinct_member_map.group_id in ([template::util::tcl_to_sql_list [contacts::default_groups -package_id $package_id]])
         [contact::search::query_clause -and -query $query -party_id "organizations.organization_id"]
          order by upper(organizations.name) asc
          limit 51