Index: openacs-4/packages/file-storage/www/copy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/file-storage/www/copy.tcl 11 Jan 2008 17:07:15 -0000 1.7 +++ openacs-4/packages/file-storage/www/copy.tcl 2 Feb 2008 12:17:27 -0000 1.8 @@ -13,7 +13,7 @@ {root_folder_id ""} {redirect_to_folder:boolean 0} {show_items:boolean 0} -} -errors {object_id:,notnull,integer,multiple {
  • Please select at least one item to copy.} +} -errors {object_id:,notnull,integer,multiple {Please select at least one item to copy.} } set objects_to_copy $object_id Index: openacs-4/packages/file-storage/www/delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/delete.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/file-storage/www/delete.tcl 11 Jan 2008 17:07:15 -0000 1.6 +++ openacs-4/packages/file-storage/www/delete.tcl 2 Feb 2008 12:17:27 -0000 1.7 @@ -4,7 +4,7 @@ object_id:notnull,multiple {confirm_p:optional,boolean 0} {return_url ""} -} -errors {object_id:,notnull,integer,multiple {
  • Please select at least one item to delete.} +} -errors {object_id:,notnull,integer,multiple {Please select at least one item to delete.} } set user_id [ad_conn user_id] Index: openacs-4/packages/file-storage/www/download-zip.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download-zip.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/file-storage/www/download-zip.tcl 11 Jan 2008 17:07:15 -0000 1.5 +++ openacs-4/packages/file-storage/www/download-zip.tcl 2 Feb 2008 12:17:27 -0000 1.6 @@ -4,7 +4,7 @@ object_id:notnull,multiple {confirm_p:optional,boolean 0} {return_url ""} -} -errors {object_id:,notnull,integer,multiple {
  • Please select at least one item to download.} +} -errors {object_id:,notnull,integer,multiple {Please select at least one item to download.} } set user_id [ad_conn user_id] Index: openacs-4/packages/file-storage/www/folder-create.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-create.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/file-storage/www/folder-create.tcl 11 Jan 2008 18:20:57 -0000 1.8 +++ openacs-4/packages/file-storage/www/folder-create.tcl 2 Feb 2008 12:20:00 -0000 1.9 @@ -12,12 +12,12 @@ } -validate { file_id_or_folder_id { if { ![exists_and_not_null folder_id] && ![exists_and_not_null parent_id] } { - ad_complain "
  • Input error: Must either have a parent_id or a folder_id" + ad_complain "Input error: Must either have a parent_id or a folder_id" } } valid_folder -requires {parent_id:integer} { if ![fs_folder_p $parent_id] { - ad_complain "
  • [_ file-storage.lt_The_specified_parent_]" + ad_complain "[_ file-storage.lt_The_specified_parent_]" } } } -properties { Index: openacs-4/packages/file-storage/www/move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/file-storage/www/move.tcl 11 Jan 2008 17:07:15 -0000 1.7 +++ openacs-4/packages/file-storage/www/move.tcl 2 Feb 2008 12:17:27 -0000 1.8 @@ -13,7 +13,7 @@ {root_folder_id ""} {redirect_to_folder:boolean 0} {show_items:boolean 0} -} -errors {object_id:,notnull,integer,multiple {
  • Please select at least one item to move.} +} -errors {object_id:,notnull,integer,multiple {Please select at least one item to move.} } set peer_addr [ad_conn peeraddr]