Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -N -r1.31 -r1.32
--- openacs-4/packages/ams/tcl/ams-procs.tcl	2 Nov 2005 20:19:55 -0000	1.31
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	22 Nov 2005 16:55:30 -0000	1.32
@@ -379,16 +379,19 @@
 	    lappend control_list $attribute_id
 	    set required_p      [lindex $attribute 1]
 	    set section_heading [lindex $attribute 2]
-	    set attribute_name  [lindex $attribute 3]
-	    set pretty_name     [lindex $attribute 4]
-	    set widget          [lindex $attribute 5]
+	    set html_options    [lindex $attribute 3]
+	    set attribute_name  [lindex $attribute 4]
+	    set pretty_name     [lindex $attribute 5]
+	    set widget          [lindex $attribute 6]
 
 	    set element [ams::widget \
 			     -widget $widget \
 			     -request "ad_form_widget" \
 			     -attribute_name $attribute_name \
 			     -pretty_name $pretty_name \
-			     -optional_p [string is false $required_p] -attribute_id $attribute_id]
+			     -optional_p [string is false $required_p] \
+			     -html_options $html_options \
+			     -attribute_id $attribute_id]
 
 	    if { [exists_and_not_null section_heading] } {
 		lappend element [list section $section_heading]
@@ -474,6 +477,7 @@
     if { [exists_and_not_null list_ids] } {
         set values [list]
         set heading ""
+	set html_opt ""
 	
 	# Control list to know which attributes are already in the
 	# elements list so we don't en up with duplicates
@@ -486,10 +490,11 @@
 	    if { [string equal [lsearch $control_list $attribute_id] "-1"] } {
 		lappend control_list $attribute_id
 		set section_heading [lindex $attribute 1]
-		set attribute_name  [lindex $attribute 2]
-		set pretty_name     [lindex $attribute 3]
-		set widget          [lindex $attribute 4]
-		set value           [lindex $attribute 5]
+		set html_options    [lindex $attribute 2]
+		set attribute_name  [lindex $attribute 3]
+		set pretty_name     [lindex $attribute 4]
+		set widget          [lindex $attribute 5]
+		set value           [lindex $attribute 6]
 		
 		set val [list]
 		if { [regexp "\{text/.*\}" $value value_format] } {
@@ -502,14 +507,19 @@
 		if { [exists_and_not_null section_heading] } {
 		    set heading $section_heading
 		}
+		
+		if { [exists_and_not_null html_options] } {
+		    set html_opt $html_options
+		}
+
 		if { [exists_and_not_null value] } {
 		    lappend values $heading $attribute_name $pretty_name [ams::widget \
 									      -widget $widget \
 									      -request "value_${format}" \
 									      -attribute_name $attribute_name \
 									      -attribute_id $attribute_id \
 									      -value $value \
-									      -locale $locale]
+									      -locale $locale] $html_opt
 
 		    ns_log Notice "$attribute_name ($attribute_id):: $value"
 		}