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.19 -r1.63.2.20
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	30 Mar 2022 07:59:30 -0000	1.63.2.19
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	2 Nov 2022 16:08:54 -0000	1.63.2.20
@@ -572,8 +572,8 @@
 
     # always ignore value for submit widget
     set element(value) $element(label)
-
-    return [input submit element $tag_attributes]
+    
+    return [input submit element [concat $tag_attributes {class prevent-double-click}]]
 }
 
 ad_proc -public template::widget::attachment {