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 { }] + } - - }