Index: openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl,v diff -u -N -r1.11.2.7 -r1.11.2.8 --- openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl 22 Aug 2019 14:30:26 -0000 1.11.2.7 +++ openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl 22 Aug 2019 15:01:28 -0000 1.11.2.8 @@ -480,11 +480,20 @@ } } } - template::add_body_script -script [subst { - document.getElementById('$id').addEventListener('click', function (event) { - acs_ListBulkActionClick("$name","[$ba url]"); - }, false); + set script [subst { + acs_ListBulkActionClick("$name","[$ba url]"); }] + if {[$ba confirm_message] ne ""} { + set script [subst { + if (confirm('[$ba confirm_message]')) { + $script + } + }] + } + template::add_event_listener \ + -id $id \ + -preventdefault=false \ + -script $script } } }