Index: openacs-4/packages/file-storage/www/folder-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v diff -u -r1.21.2.6 -r1.21.2.7 --- openacs-4/packages/file-storage/www/folder-chunk.tcl 28 Apr 2004 01:35:15 -0000 1.21.2.6 +++ openacs-4/packages/file-storage/www/folder-chunk.tcl 10 May 2004 19:30:43 -0000 1.21.2.7 @@ -16,6 +16,9 @@ ad_return_complaint 1 [_ file-storage.lt_bad_folder_id_folder_] ad_script_abort } +if {![exists_and_not_null allow_bulk_actions]} { + set allow_bulk_actions "0" +} set viewing_user_id [ad_conn user_id] @@ -100,11 +103,18 @@ link_url_col properties_url] ] +if {$allow_bulk_actions} { + set bulk_actions [list "Move" "move" "Move Checked Items to Another Folder" "Copy" "copy" "Copy Checked Items to Another Folder" "Delete" "delete" "Delete Checked Items"] +} else { + set bulk_actions "" +} + template::list::create \ -name contents \ -multirow contents \ -key object_id \ -actions $actions \ + -bulk_actions $bulk_actions \ -filters { folder_id {hide_p 1} } \