Index: openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl	6 Oct 2005 14:28:26 -0000	1.3
+++ openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl	9 Dec 2005 12:00:25 -0000	1.4
@@ -69,13 +69,13 @@
     ns_set put $args package_id $package_id
     add_portlet_helper $portal_id $args
 
-    # intializate rels, only if they are not initialized yet (a previous 
-    # call when istantiating the applet in another community)
-    if { ![plsql_utility::object_type_exists_p imsld_community_manifest_rel] } {
-    rel_types::new imsld_community_manifest_rel "dotLRN Community - IMS LD Manifests rel" "dotLRN Community - IMS LD Manifests rels"  \
-        [acs_object::get_element -object_id $community_id -element object_type] 0 {} \
-        content_item 0 {}
-    }
+    ### Create the CR Root folder for the community
+    set cr_root_folder_id [content::folder::new -name "imsld_root_cr_folder_${community_id}" \
+                               -label "imsld_root_cr_folder_${community_id}"]
+    content::folder::register_content_type -folder_id $cr_root_folder_id -content_type content_revision -include_subtypes t
+    content::folder::register_content_type -folder_id $cr_root_folder_id -content_type content_folder -include_subtypes t
+    content::folder::register_content_type -folder_id $cr_root_folder_id -content_type content_extlink -include_subtypes t
+    content::folder::register_content_type -folder_id $cr_root_folder_id -content_type content_simlink -include_subtypes t
     
     return $package_id
 }