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.2 -r1.2.2.1
--- openacs-4/packages/contacts/tcl/attribute-procs.tcl	13 Jan 2005 13:57:02 -0000	1.2
+++ openacs-4/packages/contacts/tcl/attribute-procs.tcl	30 Nov 2005 15:31:01 -0000	1.2.2.1
@@ -57,9 +57,17 @@
 
     }
 
+    ad_proc -public options_attribute { 
+    } {
+	Returns a list of only the attributes that have
+	multiple choices of the format {pretty_name attribute_id}
+    } {
+	set options [db_list_of_lists get_option_attributes { }]
+	lappend options [list "[_ contacts.Country]" "-1"]
+	lappend options [list "[_ contacts.Relationship]" "-2"]
+	return $options
+    }
 
-
-
 }