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.87 -r1.88 --- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 25 Jul 2018 18:54:12 -0000 1.87 +++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 25 Jul 2018 19:00:06 -0000 1.88 @@ -1166,7 +1166,7 @@ -item_id $folder_id \ -action "delete_folder" } - + db_exec_plsql delete_folder {} } @@ -1285,7 +1285,7 @@ set owner [person::name -person_id $creation_user] if {$action in {"new_file" "new_url" "new_version"}} { - + if {$action eq "new_version"} { set sql "select description as description from cr_revisions where cr_revisions.revision_id = :item_id"