Index: openacs-4/packages/lors/tcl/lors-cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-cr-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lors/tcl/lors-cr-procs.tcl	7 Jun 2006 13:45:20 -0000	1.5
+++ openacs-4/packages/lors/tcl/lors-cr-procs.tcl	7 Jun 2006 13:52:01 -0000	1.6
@@ -102,7 +102,17 @@
         set folder_id [db_exec_plsql folder_create {
             select lors__new_folder (:name, :folder_name, :parent_id, :user_id, :creation_ip);
             }]
-	
+
+	content::folder::register_content_type -folder_id $folder_id -content_type "content_revision" \
+	    -include_subtypes "t" 
+	content::folder::register_content_type -folder_id $folder_id -content_type "content_folder" \
+	    -include_subtypes "t"
+	content::folder::register_content_type -folder_id $folder_id -content_type "content_symlink" \
+	    -include_subtypes "t"
+	content::folder::register_content_type -folder_id $folder_id -content_type "content_extlink" \
+	    -include_subtypes "t"
+
+    
 #   } on_error {
 #        ad_return_error "[_ lors.lt_Error_inserting_folde]" "[_ lors.The_error_was_errmsg]"
 #        error "[_ lors.The_error_was_errmsg]"