Index: openacs-4/packages/contacts/www/admin/purge-user-searches.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/purge-user-searches.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/admin/purge-user-searches.adp	30 Jun 2006 18:57:33 -0000	1.1
@@ -0,0 +1,8 @@
+<master>
+<property name="title">@title@</property>
+<property name="context">@context@</property>
+
+<p>#contacts.lt_Purge_searches_explained#</p>
+
+<formtemplate id="purge_searches"></formtemplate>
+
Index: openacs-4/packages/contacts/www/admin/purge-user-searches.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/purge-user-searches.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/admin/purge-user-searches.tcl	30 Jun 2006 18:57:33 -0000	1.1
@@ -0,0 +1,24 @@
+# /packages/ocntacts/www/admin/purge-user-searches.tcl
+
+ad_page_contract {
+} {
+} -properties {
+}
+
+set title [_ contacts.Purge_users_searches]
+set context [list $title]
+
+ad_form -name "purge_searches" \
+    -form {
+	{user_id:contact_search(contact_search) {label "[_ contacts.Purge_users_searches]"} {search persons}}
+    } -on_request {
+    } -on_submit {
+	db_list deletem { select acs_object__delete(search_id) from contact_searches where owner_id = :user_id }
+	foreach name [ns_cache names util_memoize] {
+	    ns_cache flush util_memoize $name
+	}
+    } -after_submit {
+	ad_returnredirect ./
+	ad_script_abort
+    }
+