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 -r1.11.2.35 -r1.11.2.36 --- openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl 3 Aug 2023 11:15:13 -0000 1.11.2.35 +++ openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl 21 Nov 2023 13:30:51 -0000 1.11.2.36 @@ -571,7 +571,7 @@ html::t "#xotcl-core.Bulk_actions#:" } - html::ul -class compact { + html::ul -class compact { set bulkaction_container [[lindex $bulkactions 0] set __parent] set name [$bulkaction_container set __identifier] @@ -584,22 +584,22 @@ html::t [$bulk_action label] } } + set script [subst { + acs_ListBulkActionClick("$name","[$bulk_action url]"); + }] + if {[$bulk_action confirm_message] ne ""} { + set script [subst { + if (confirm('[$bulk_action confirm_message]')) { + $script + } + }] + } + template::add_event_listener \ + -id $id \ + -preventdefault=false \ + -script $script } } - set script [subst { - acs_ListBulkActionClick("$name","[$bulk_action url]"); - }] - if {[$bulk_action confirm_message] ne ""} { - set script [subst { - if (confirm('[$bulk_action confirm_message]')) { - $script - } - }] - } - template::add_event_listener \ - -id $id \ - -preventdefault=false \ - -script $script } } }