Index: openacs-4/packages/contacts/tcl/contact-extend-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-extend-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/contacts/tcl/contact-extend-procs.tcl	14 Nov 2005 22:55:45 -0000	1.3
+++ openacs-4/packages/contacts/tcl/contact-extend-procs.tcl	15 Nov 2005 15:56:46 -0000	1.4
@@ -57,12 +57,15 @@
 ad_proc -public contact::extend::get_options { 
     {-ignore_extends ""}
     -search_id:required
+    -aggregated_p:required
 } {
     Returns a list of the form { pretty_name extend_id } of all available extend options in
     contact_extend_options, if search_id is passed then ignore the extends in
     contact_search_extend_map
 
     @param ignore_extends A list of extend_id's to ignore on the result
+    @param search_id The id of the search to get the mapped extend options
+    @param aggregated_p Set it to t or f to get the extends that have aggregated_p set to t or f
 } {
     set extra_query "where extend_id not in (select extend_id from contact_search_extend_map where search_id = $search_id)"
     if { ![empty_string_p $ignore_extends] } {
@@ -76,7 +79,7 @@
 ad_proc -public contact::extend::option_info { 
     -extend_id:required
 } {
-    Returns a list of the form { var_name pretty_name subquery description } of the extend_id
+    Returns a list of the form { var_name pretty_name subquery description aggregated_p } of the extend_id
 } {
     return [db_list_of_lists get_options { }]
 }
\ No newline at end of file