Index: openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl	26 Aug 2005 14:38:04 -0000	1.7
+++ openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl	29 Aug 2005 22:49:50 -0000	1.8
@@ -88,8 +88,11 @@
     {-object_type ""}
     {-prefix ""}
     {-without_arrow_p "f"}
+    {-only_multiple_p "f"}
 } {
     Return all widget procs. Each list element is a list of the first then pretty_name then the widget
+    @param without_arrow_p Show the elementes in the select menu without the "->"
+    @param only_multiple_p Only show those elements that have multiple choices
 } {
     switch $request {
         ad_form_widgets {
@@ -216,13 +219,16 @@
             
             set form_elements [list]
 
-            
-            set attribute_options [db_list_of_lists get_attributes {
-                select pretty_name, attribute_id
-                from ams_attributes	
-                where object_type in ('organization','party','person','user') 
-                and ams_attribute_id is not null
-            }]
+            if { !$only_multiple_p } {
+		set attribute_options [db_list_of_lists get_attributes {
+		    select pretty_name, attribute_id
+		    from ams_attributes	
+		    where object_type in ('organization','party','person','user') 
+		    and ams_attribute_id is not null
+		}] 
+	    } else {
+		set attribute_options [contacts::attribute::options_attribute]
+	    }
             set sorted_options [ams::util::localize_and_sort_list_of_lists -list $attribute_options]
             set attribute_options [list [list "- - - -" ""]]
             foreach op $sorted_options {