Index: openacs-4/packages/ams/www/list-code.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/www/list-code.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ams/www/list-code.adp	18 May 2005 17:11:48 -0000	1.1
+++ openacs-4/packages/ams/www/list-code.adp	25 May 2005 10:47:53 -0000	1.2
@@ -10,17 +10,18 @@
                 -list_name "@list_info.list_name@" \
                 -pretty_name "@list_info.pretty_name@" \
                 -description "@list_info.description@" \
-                -description_mime_type "@list_info.description_mime_type@"
+                -description_mime_type "@list_info.description_mime_type@"]
 
+
 <if @attributes:rowcount@ gt 0>
 <multiple name="attributes">
 
 set attribute_id [attribute::new \
               -object_type "@attributes.object_type@" \
               -attribute_name "@attributes.attribute_name@" \
               -datatype "@attributes.datatype@" \
-              -pretty_name "@attributes.pretty_name@" \
-              -pretty_plural "@attributes.pretty_plural@" \
+              -pretty_name "\#@attributes.pretty_name@#" \
+              -pretty_plural "\#@attributes.pretty_plural@#" \
               -table_name "@attributes.table_name@" \
               -column_name "@attributes.column_name@" \
               -default_value "@attributes.default_value@" \
@@ -31,6 +32,9 @@
               -static_p "@attributes.static_p@" \
               -if_does_not_exist]
 
+lang::message::register en_US ams @attributes.message_key@ @attributes.true_pretty@ 
+lang::message::register en_US ams @attributes.message_key@_plural @attributes.true_plural@ 
+
 ams::attribute::new \
               -attribute_id $attribute_id \
               -widget "@attributes.widget@" \
@@ -44,4 +48,4 @@
               -section_heading "@attributes.section_heading@"
 </multiple>
 </if>
-</pre>
\ No newline at end of file
+</pre>