Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.60.2.13 -r1.60.2.14
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl 29 Aug 2016 09:23:03 -0000 1.60.2.13
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl 2 Oct 2016 16:40:25 -0000 1.60.2.14
@@ -348,10 +348,21 @@
error "You cannot have bulk_actions without providing a key for list '$name'"
}
# Create the checkbox element
- set label [subst {}]
+ set label [subst {
+
+ }]
+ template::add_event_listener \
+ -id $name-bulkaction-control \
+ -preventdefault=false \
+ -script [subst {acs_ListCheckAll('[ns_quotehtml $name]', this.checked);}]
+ template::add_event_listener \
+ -id $name-bulkaction-control \
+ -event keypress \
+ -preventdefault=false \
+ -script [subst {acs_ListCheckAll('[ns_quotehtml $name]', this.checked);}]
+
if {[info exists ::__csrf_token]} {
- append label \n [subst {}]
+ append label [subst {}]
}
# We only ulevel 1 here, because we want the subst to be done in this namespace