Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.63.2.21 -r1.63.2.22
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	23 Nov 2023 16:47:35 -0000	1.63.2.21
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	30 Nov 2023 14:13:35 -0000	1.63.2.22
@@ -277,8 +277,11 @@
     upvar $element_reference element
 
     if { [info exists element(html)] } {
-        array set attributes $element(html)
+        foreach {key value} $element(html) {
+            dict lappend tag_attributes $key {*}$value
+        }
     }
+
     array set attributes $tag_attributes
 
     if { [info exists element(value)] } {
@@ -385,7 +388,9 @@
     upvar $element_reference element
 
     if { [info exists element(html)] } {
-        array set attributes $element(html)
+        foreach {key value} $element(html) {
+            dict lappend tag_attributes $key {*}$value
+        }
     }
 
     array set attributes $tag_attributes
@@ -572,9 +577,10 @@
 
     # always ignore value for submit widget
     set element(value) $element(label)
-    
-    return [input submit element \
-                [dict lappend tag_attributes class prevent-double-click]]
+
+    dict lappend tag_attributes class prevent-double-click
+
+    return [input submit element $tag_attributes]
 }
 
 ad_proc -public template::widget::attachment {
@@ -759,7 +765,9 @@
     upvar $element_reference element
 
     if { [info exists element(html)] } {
-        array set attributes $element(html)
+        foreach {key value} $element(html) {
+            dict lappend tag_attributes $key {*}$value
+        }
     }
 
     array set attributes $tag_attributes
@@ -783,7 +791,9 @@
     upvar $element_reference element
 
     if { [info exists element(html)] } {
-        array set attributes $element(html)
+        foreach {key value} $element(html) {
+            dict lappend tag_attributes $key {*}$value
+        }
     }
 
     array set attributes $tag_attributes
@@ -897,7 +907,9 @@
     upvar $element_reference element
 
     if { [info exists element(html)] } {
-        array set attributes $element(html)
+        foreach {key value} $element(html) {
+            dict lappend tag_attributes $key {*}$value
+        }
     }
 
     array set attributes $tag_attributes
@@ -939,7 +951,9 @@
     upvar $element_reference element
 
     if { [info exists element(html)] } {
-        array set attributes $element(html)
+        foreach {key value} $element(html) {
+            dict lappend tag_attributes $key {*}$value
+        }
     }
 
     if { [info exists element(value)] } {
@@ -1075,8 +1089,11 @@
 } {
 
     upvar $element_reference element
+
     if { [info exists element(html)] } {
-        array set attributes $element(html)
+        foreach {key value} $element(html) {
+            dict lappend tag_attributes $key {*}$value
+        }
     }
 
     array set attributes $tag_attributes
@@ -1188,8 +1205,11 @@
     @error
 } {
     upvar $element_reference element
+
     if { [info exists element(html)] } {
-        array set attributes $element(html)
+        foreach {key value} $element(html) {
+            dict lappend tag_attributes $key {*}$value
+        }
     }
 
     array set attributes $tag_attributes
@@ -1314,8 +1334,11 @@
     @error
 } {
     upvar $element_reference element
+
     if { [info exists element(html)] } {
-        array set attributes $element(html)
+        foreach {key value} $element(html) {
+            dict lappend tag_attributes $key {*}$value
+        }
     }
 
     array set attributes $tag_attributes