Index: openacs-4/packages/ams/www/list-code.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-code.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/ams/www/list-code.tcl	10 Jun 2005 21:50:53 -0000	1.6
+++ openacs-4/packages/ams/www/list-code.tcl	9 Feb 2006 20:46:43 -0000	1.7
@@ -26,7 +26,7 @@
 regsub -all {"} $list_info(description) {\"} list_info(description)
 
 
-db_multirow -extend {message_key option_key true_pretty true_plural true_option} -unclobber attributes select_mapped_attributes {
+db_multirow -extend {message_key option_key true_pretty true_plural help_text true_option} -unclobber attributes select_mapped_attributes {
     select alam.required_p,
     alam.section_heading,
     alam.sort_order as list_sort_order,
@@ -41,12 +41,11 @@
     order by alam.sort_order
 } {
     regsub -all {"} $section_heading {\"} section_heading
-    set message_key "${object_type}_${attribute_name}"
-#    set option [lang::message::lookup en_US [string trim $option "#"]]
-	set pretty_name [lang::message::lookup en_US [string trim $pretty_name "#"]]
+    set message_key "${object_type}_${attribute_name}" 
+    set pretty_name [lang::message::lookup en_US [string trim $pretty_name "#"]]
 	set pretty_plural [lang::message::lookup en_US [string trim $pretty_plural "#"]]
-
-# set true_option [lang::message::lookup en_US acs-translations.$option_key]
+	set help_text [attribute::help_text -attribute_id $attribute_id]
+	
 }