Index: openacs-4/packages/file-storage/www/folder-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-add.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/file-storage/www/folder-add.tcl	17 Sep 2018 14:23:17 -0000	1.9
+++ openacs-4/packages/file-storage/www/folder-add.tcl	3 Sep 2024 15:37:38 -0000	1.10
@@ -8,7 +8,7 @@
     folder_id:naturalnum,optional,notnull
     upload_folder:trim,optional
     return_url:localurl,optional
-    {lock_title_p:boolean 0}
+    {lock_title_p:boolean,notnull 0}
 
 } -properties {
     folder_id:onevalue
@@ -75,7 +75,7 @@
         # check if this is in a folder inside the zip and create
         # the folders if they don't exist
         set p_f_id $folder_id
-        set file_paths [file split [file dirname $upload_file]]
+        set file_paths [file split [ad_file dirname $upload_file]]
 
         if {"." ne $file_paths && [llength $file_paths]} {
             # make sure every folder exists
@@ -93,7 +93,7 @@
                 }
 
             }
-            set upload_file [file tail $upload_file]
+            set upload_file [ad_file tail $upload_file]
         }
 
         set this_folder_id $p_f_id