Index: openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl,v diff -u -r1.17 -r1.17.2.1 --- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl 17 Sep 2018 14:23:17 -0000 1.17 +++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl 31 Mar 2021 11:32:54 -0000 1.17.2.1 @@ -82,7 +82,7 @@ Callback executed when a new file revision is created @param package_id Package_id of the file storage package @param file_id New file_id for the revision - @param parent_id Usually the folder the file was uploaded to. + @param parent_id Usually, the folder the file was uploaded to. @param creation_user User_id of the user creating the revision @param creation_ip IP of the creation } - Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v diff -u -r1.90.2.13 -r1.90.2.14 --- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 31 Mar 2021 11:31:39 -0000 1.90.2.13 +++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 31 Mar 2021 11:32:54 -0000 1.90.2.14 @@ -257,7 +257,7 @@ @param pretty_name What we show to users of the system @param parent_id Where we create this folder @param creation_user Who created this folder - @param creation_ip What is the ip address of the creation_user + @param creation_ip What is the IP address of the creation_user @param description of the folder. Not used in the current FS UI but might be used elsewhere. @param package_id Package_id of the package for which to create the new folder. Preferably a file storage package_id @param no_callback defines if the callback should be called. Defaults to yes @@ -355,7 +355,7 @@ {-object_id:required} } { get the name of a file storage object and make it safe for writing to - the file system + the filesystem } { return [ad_sanitize_filename \ -collapse_spaces \ @@ -366,7 +366,7 @@ ad_proc -deprecated -public fs::remove_special_file_system_characters { {-string:required} } { - Remove unsafe file system characters. Useful if you want to use $string + Remove unsafe filesystem characters. Useful if you want to use $string as the name of an object to write to disk. @see ad_sanitize_filename @@ -525,7 +525,7 @@ {-file_name ""} {-user_id ""} } { - publish a file storage object to the file system + publish a file storage object to the filesystem } { if {$path eq ""} { set path [ad_tmpnam] @@ -557,7 +557,7 @@ {-folder_name ""} {-user_id ""} } { - publish the contents of a file storage folder to the file system + publish the contents of a file storage folder to the filesystem } { if {$path eq ""} { set path [ad_tmpnam] @@ -595,7 +595,7 @@ {-path ""} {-file_name ""} } { - publish a URL object to the file system as a Windows shortcut + publish a URL object to the filesystem as a Windows shortcut (which at least KDE also knows how to handle) } { if {$path eq ""} { @@ -627,7 +627,7 @@ {-path ""} {-file_name ""} } { - publish an object to the file system + publish an object to the filesystem } { if {$path eq ""} { set path [ad_tmpnam] @@ -827,7 +827,7 @@ permission::grant -party_id $creation_user -object_id $item_id -privilege admin } - # Deal with notifications. Usually send out the notification + # Deal with notifications. Usually, send out the notification # But suppress it if the parameter is given if {$no_notification_p} { set do_notify_here_p "f" Index: openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl,v diff -u -r1.9.2.4 -r1.9.2.5 --- openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl 30 Mar 2021 11:19:39 -0000 1.9.2.4 +++ openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl 31 Mar 2021 11:32:54 -0000 1.9.2.5 @@ -19,7 +19,7 @@ ad_proc -private file_storage::twt::delete_file { file_name } { Deletes a file. } { - # Delete a file name + # Delete a filename file delete -force -- $file_name } @@ -209,7 +209,7 @@ if { [string match "*\?folder*id*" $response_url] } { - # Get the short file name + # Get the short filename set list_words [split "$file_name" /] set short_file_name [lindex $list_words [llength $list_words]-1] @@ -276,7 +276,7 @@ if { [string match "*/dotlrn/file-storage/\?folder*id*" $response_url] } { - # Get the short file name + # Get the short filename set list_words [split "$file_name" /] set short_file_name [lindex $list_words [llength $list_words]-1] @@ -310,7 +310,7 @@ if { [string match "*/dotlrn/file-storage/\?folder*id*" $response_url] } { - # Get the short file name + # Get the short filename set list_words [split "$file_name" /] set short_file_name [lindex $list_words [llength $list_words]-1] 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.9.2.2 -r1.9.2.3 --- openacs-4/packages/file-storage/www/download-zip.tcl 21 Jul 2020 14:06:40 -0000 1.9.2.2 +++ openacs-4/packages/file-storage/www/download-zip.tcl 31 Mar 2021 11:32:54 -0000 1.9.2.3 @@ -10,7 +10,7 @@ auth::require_login set user_id [ad_conn user_id] -# publish the object to the file system +# publish the object to the filesystem set in_path [ad_tmpnam] file mkdir $in_path Index: openacs-4/packages/file-storage/www/file-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v diff -u -r1.28.2.1 -r1.28.2.2 --- openacs-4/packages/file-storage/www/file-add.tcl 21 Jul 2020 14:06:40 -0000 1.28.2.1 +++ openacs-4/packages/file-storage/www/file-add.tcl 31 Mar 2021 11:32:54 -0000 1.28.2.2 @@ -204,7 +204,7 @@ ad_return_complaint 1 "You have to upload a file or create a new one" ad_script_abort } - # create a tmp file to import from user entered HTML + # create a temporary file to import from user entered HTML set mime_type text/html set tmp_filename [ad_tmpnam] set fd [open $tmp_filename w] Index: openacs-4/packages/file-storage/www/folder-zip-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-zip-add.tcl,v diff -u -r1.11.2.6 -r1.11.2.7 --- openacs-4/packages/file-storage/www/folder-zip-add.tcl 15 Feb 2021 15:50:52 -0000 1.11.2.6 +++ openacs-4/packages/file-storage/www/folder-zip-add.tcl 31 Mar 2021 11:32:54 -0000 1.11.2.7 @@ -254,7 +254,7 @@ } # - # Cleanup of the tmp file. + # Cleanup of the temporary file. # file delete -- $tmpfile }