Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/contacts/lib/contacts.tcl	29 Jan 2006 16:09:49 -0000	1.39
+++ openacs-4/packages/contacts/lib/contacts.tcl	1 Feb 2006 20:16:44 -0000	1.40
@@ -46,11 +46,17 @@
     set group_where_clause "" 
     # Also we can extend this search.
     # Is to allow extend the list by any extend_options defined in contact_extend_options
+    set extend_options [contact::extend::get_options \
+				    -ignore_extends $extend_values \
+				    -search_id $search_id -aggregated_p "f"]
+    if { [llength $extend_options] == 0 } {
+	set hide_form_p 1
+    }
+
     set available_options [concat \
 			       [list [list "- - - - - - - -" ""]] \
-			       [contact::extend::get_options \
-				    -ignore_extends $extend_values \
-				    -search_id $search_id -aggregated_p "f"]]
+			       $extend_options \
+			       ]
 
     ad_form -name extend -form {
 	{extend_option:text(select),optional