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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/tcl/contact-search-procs.xql	10 Jun 2005 09:24:48 -0000	1.1
@@ -0,0 +1,35 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="contact::search::results_count_not_cached.select_results_count">
+  <querytext>
+    select count(*)
+      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 $query -party_id "parties.party_id" -revision_id "revision_id"]
+  </querytext>
+</fullquery>
+
+
+<fullquery name="contact::search::where_clause_not_cached.get_search_info">
+  <querytext>
+    select title,
+           owner_id,
+           all_or_any,
+           object_type
+      from contact_searches
+     where search_id = :search_id
+  </querytext>
+</fullquery>
+
+<fullquery name="contact::search::where_clause_not_cached.select_queries">
+  <querytext>
+    select type,
+           var_list
+      from contact_search_conditions
+     where search_id = :search_id
+  </querytext>
+</fullquery>
+
+</queryset>