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.5 -r1.6
--- openacs-4/packages/ams/www/list-code.tcl	7 Jun 2005 07:44:14 -0000	1.5
+++ openacs-4/packages/ams/www/list-code.tcl	10 Jun 2005 21:50:53 -0000	1.6
@@ -42,13 +42,10 @@
 } {
     regsub -all {"} $section_heading {\"} section_heading
     set message_key "${object_type}_${attribute_name}"
-    set option_key "${message_key}_[lang::util::suggest_key $option]"
-    set pretty_name "acs-translation.$message_key"
-    set pretty_plural "acs-translation.${message_key}_plural"
-    set true_pretty [lang::message::lookup en_US acs-translations.$message_key]
-    set true_plural [lang::message::lookup en_US acs-translations.${message_key}_plural]
-    set true_option $option
-    set option "acs-translation.$option_key"
+#    set option [lang::message::lookup en_US [string trim $option "#"]]
+	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]
 }