Index: openacs-4/packages/contacts/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/attribute-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/tcl/attribute-procs.tcl	4 Jun 2005 12:36:45 -0000	1.4
+++ openacs-4/packages/contacts/tcl/attribute-procs.tcl	29 Aug 2005 22:49:50 -0000	1.5
@@ -57,9 +57,14 @@
 
     }
 
+    ad_proc -public options_attribute { 
+    } {
+	Returns a list of only the attributes that have
+	multiple choices of the format {pretty_name attribute_id}
+    } {
+	return [db_list_of_lists get_option_attributes { }]
+    }
 
-
-
 }