- Now registering content types for new folders

tcl/intranet-rest-fs-openacs-procs.tcl

@@ -81,8 +81,8 @@ ad_proc -public im_rest_fs_folder_for_object {
 		where	ci.item_id = cf.folder_id and
 			ci.name = :folder_name
     " -default ""]
-
-	# Create folder if it doesn't exist
+    
+    # Create folder if it doesn't exist
     if {"" eq $folder_id} {
 	set folder_id [fs::new_folder \
 			       -name $folder_name \
@@ -97,7 +97,7 @@ ad_proc -public im_rest_fs_folder_for_object {
 	db_string reg "select content_folder__register_content_type(:folder_id, 'file_storage_object', true)"
 	db_string reg "select content_folder__register_content_type(:folder_id, 'content_extlink', true)"
     }
-	
+
     # Associate the folder with the object
     set rel_id [db_string create_rel "
 	    	select acs_rel__new (

www/mkdir.tcl

@@ -32,13 +32,18 @@ if {"" eq $parent_id} {
     ad_script_abort
 }
 
-fs::new_folder \
+set folder_id [fs::new_folder \
     -name $folder_name \
     -pretty_name $folder_name \
     -parent_id $parent_id \
     -creation_user $user_id \
     -creation_ip [ad_conn peeraddr] \
-    -package_id $package_id
+    -package_id $package_id \
+]
+
+db_string reg "select content_folder__register_content_type(:folder_id, 'content_folder', true)"
+db_string reg "select content_folder__register_content_type(:folder_id, 'file_storage_object', true)"
+db_string reg "select content_folder__register_content_type(:folder_id, 'content_extlink', true)"
 
 
 doc_return 200 "text/plain" "project_id=$project_id, path=$path"