Index: openacs-4/packages/contacts/lib/searches.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/searches.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/searches.adp	8 Jul 2005 00:33:30 -0000	1.1
@@ -0,0 +1,8 @@
+<if @public_searches:rowcount@ gt 0>
+<h3>#contacts.In_Searches#</h3>
+<ul>
+<multiple name="public_searches">
+  <li><a href="@public_searches.url@">@public_searches.title@</a></li>
+</multiple>
+</ul>
+</if>
Index: openacs-4/packages/contacts/lib/searches.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/searches.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/searches.tcl	8 Jul 2005 00:33:30 -0000	1.1
@@ -0,0 +1,19 @@
+#    @author Matthew Geddert openacs@geddert.com
+#    @creation-date 2005-07-09
+#    @cvs-id $Id: searches.tcl,v 1.1 2005/07/08 00:33:30 matthewg Exp $
+
+if { [string is false [contact::exists_p -party_id $party_id]] } {
+    error "[_ contacts.lt_The_party_id_specifie]"
+}
+set package_id [ad_conn package_id]
+multirow create public_searches title url
+if { [site_node::get_package_url -package_key "tasks"] != "" } {
+    set tasks_enabled_p 1
+    db_foreach dbqd.contacts.www.index.public_searches {} {
+	if { [contact::search::results_count_not_cached -search_id $search_id -query $party_id] == "1" && $title != "All People" && $title != "All Organizations" } {
+	    multirow append public_searches $title [export_vars -base "../" -url {search_id}] 
+	}
+    }
+} else {
+    set tasks_enabled_p 0
+}