Index: openacs-4/packages/xowiki/tcl/table-widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/table-widget-procs.tcl,v diff -u -N -r1.1.2.12 -r1.1.2.13 --- openacs-4/packages/xowiki/tcl/table-widget-procs.tcl 29 Jul 2021 17:27:01 -0000 1.1.2.12 +++ openacs-4/packages/xowiki/tcl/table-widget-procs.tcl 5 Oct 2021 19:21:22 -0000 1.1.2.13 @@ -13,12 +13,13 @@ ::xowiki::TableWidget proc create_from_form_fields { {-form_field_objs:required} - {-package_id} + {-package_id:required} {-buttons {}} {-hidden_field_names ""} {-bulk_actions ""} {-renderer ""} {-orderby ""} + {-allow_clipboard:boolean false} } { set actions "" @@ -32,14 +33,14 @@ set bulk_action_cols "" foreach bulk_action $bulk_actions { if {$bulk_action eq "export"} { - append actions [list Action bulk-delete \ - -label [_ xowiki.export] \ - -tooltip [_ xowiki.export] \ + append actions [list Action create bulk-$bulk_action \ + -label [_ xowiki.$bulk_action] \ + -tooltip [_ xowiki.$bulk_action] \ -url [::$package_id package_url]admin/export \ ] \n } } - if {[llength $bulk_actions] > 0} { + if {$allow_clipboard || [llength $bulk_actions] > 0} { append cols [subst {BulkAction create objects -id ID -actions {$actions}}] \n append cols {HiddenField create ID} \n }