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 -N -r1.18 -r1.19
--- openacs-4/packages/contacts/tcl/contact-search-procs.xql	19 May 2006 18:36:56 -0000	1.18
+++ openacs-4/packages/contacts/tcl/contact-search-procs.xql	5 Jun 2006 08:13:28 -0000	1.19
@@ -15,6 +15,17 @@
   </querytext>
 </fullquery>
 
+<fullquery name="contact::search::permitted.select_search_info">
+  <querytext>
+    select cs.owner_id,
+           ao.package_id
+      from contact_searches cs,
+           acs_objects ao
+     where cs.search_id = ao.object_id
+       and cs.search_id = :search_id
+      </querytext>
+</fullquery>
+
 <fullquery name="contact::search::get.select_search_info">
   <querytext>
     select contact_searches.*, acs_objects.title, acs_objects.package_id
@@ -24,7 +35,6 @@
   </querytext>
 </fullquery>
 
-
 <fullquery name="contact::search_pretty_not_cached.select_conditions">
   <querytext>
     select type,