Index: openacs-4/packages/contacts/tcl/contact-search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/contacts/tcl/contact-search-procs.tcl	12 Mar 2006 17:54:18 -0000	1.23
+++ openacs-4/packages/contacts/tcl/contact-search-procs.tcl	1 Apr 2006 07:07:16 -0000	1.24
@@ -60,6 +60,17 @@
     db_1row select_search_info {} -column_array row
 }
 
+ad_proc -public contact::search::get_extensions { 
+    -search_id:required
+} {
+} {
+    return [db_list get_search_exensions {
+	    select extend_column
+	      from contact_search_extend_map
+	     where search_id = :search_id
+           }]
+}
+
 ad_proc -public contact::search::update {
     {-search_id ""}
     {-title ""}