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.4 -r1.5
--- openacs-4/packages/contacts/tcl/contact-search-procs.xql 19 Jun 2005 07:00:28 -0000 1.4
+++ openacs-4/packages/contacts/tcl/contact-search-procs.xql 28 Jun 2005 18:11:47 -0000 1.5
@@ -34,6 +34,15 @@
+
+
+ select type,
+ var_list
+ from contact_search_conditions
+ where search_id = :search_id
+
+
+
select count(*)