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.8 -r1.9 --- openacs-4/packages/ams/www/list-code.adp 14 Feb 2006 21:49:29 -0000 1.8 +++ openacs-4/packages/ams/www/list-code.adp 16 Feb 2006 13:57:15 -0000 1.9 @@ -4,15 +4,6 @@
#ams.lt_Here_is_the_code_nece#
-set list_id [ams::list::new \ - -package_key "@list_info.package_key@" \ - -object_type "@list_info.object_type@" \ - -list_name "@list_info.list_name@" \ - -pretty_name "@list_info.pretty_name@" \ - -description "@list_info.description@" \ - -description_mime_type "@list_info.description_mime_type@"] - -@@ -54,13 +45,23 @@ ### ################################# +set list_id [ams::list::new \ + -package_key "@list_info.package_key@" \ + -object_type "@list_info.object_type@" \ + -list_name "@list_info.list_name@" \ + -pretty_name "@list_info.pretty_name@" \ + -description "@list_info.description@" \ + -description_mime_type "@list_info.description_mime_type@"] + + + set attribute_id [attribute::id -object_type "@attributes2.object_type@" -attribute_name "@attributes2.attribute_name@"] ams::list::attribute::map \ -list_id $list_id \ -attribute_id $attribute_id \ - -sort_order "@attributes2.list_sort_order@" \ + -sort_order "@attributes2.list_sort_order@0" \ -required_p "@attributes2.required_p@" \ -section_heading "@attributes2.section_heading@"