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.2 -r1.3
--- openacs-4/packages/contacts/tcl/contact-search-procs.xql 14 Jun 2005 06:08:28 -0000 1.2
+++ openacs-4/packages/contacts/tcl/contact-search-procs.xql 16 Jun 2005 20:51:58 -0000 1.3
@@ -7,6 +7,25 @@
+
+
+ select title
+ from contact_searches
+ where search_id = :search_id
+
+
+
+
+
+ select parties.party_id
+ from parties left join cr_items on (parties.party_id = cr_items.item_id) left join cr_revisions on (cr_items.latest_revision = cr_revisions.revision_id ),
+ group_distinct_member_map
+ where parties.party_id = group_distinct_member_map.member_id
+ and group_distinct_member_map.group_id = '-2'
+ [contact::search_clause -and -search_id $search_id -query "" -party_id "parties.party_id" -revision_id "revision_id"]
+
+
+
select count(*)