Index: openacs-4/packages/imsld/tcl/imsld-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-install-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/imsld/tcl/imsld-install-procs.tcl	15 Nov 2005 14:53:32 -0000	1.13
+++ openacs-4/packages/imsld/tcl/imsld-install-procs.tcl	18 Nov 2005 08:44:50 -0000	1.14
@@ -21,6 +21,7 @@
     # learning objects
     content::type::new -content_type imsld_learning_object -supertype content_revision -pretty_name "#imsld.Learning_Object#" -pretty_plural "#imsld.Learning_Objects#" -table_name imsld_learning_objects -id_column learning_object_id
     
+    content::type::attribute::new -content_type imsld_learning_object -attribute_name environment_id -datatype number -pretty_name "#imsld.lt_Environment_Identifie#" -column_spec "integer"
     content::type::attribute::new -content_type imsld_learning_object -attribute_name identifier -datatype string -pretty_name "#imsld.Identifier#" -column_spec "varchar(100)"
     content::type::attribute::new -content_type imsld_learning_object -attribute_name class -datatype string -pretty_name "#imsld.Class#" -column_spec "varchar(4000)"
     content::type::attribute::new -content_type imsld_learning_object -attribute_name is_visible_p -datatype string -pretty_name "#imsld.Is_Visible#" -column_spec "char(1)"
@@ -124,7 +125,6 @@
     
     content::type::attribute::new -content_type imsld_environment -attribute_name component_id -datatype number -pretty_name "#imsld.Component_Identifier#" -column_spec "integer"
     content::type::attribute::new -content_type imsld_environment -attribute_name identifier -datatype string -pretty_name "#imsld.Identifier#" -column_spec "varchar(100)"
-    content::type::attribute::new -content_type imsld_environment -attribute_name learning_object_id -datatype number -pretty_name "#imsld.lt_Learning_Object_Ident#" -column_spec "integer"
 
     # services
     content::type::new -content_type imsld_service -supertype content_revision -pretty_name "#imsld.IMS-LD_Service#" -pretty_plural "#imsld.IMS-LD_Services#" -table_name imsld_services -id_column service_id
@@ -407,6 +407,7 @@
     ### IMS-LD
 
     # learning objects
+    content::type::attribute::delete -content_type imsld_learning_object -attribute_name environment_id
     content::type::attribute::delete -content_type imsld_learning_object -attribute_name identifier
     content::type::attribute::delete -content_type imsld_learning_object -attribute_name class
     content::type::attribute::delete -content_type imsld_learning_object -attribute_name is_visible_p
@@ -488,9 +489,8 @@
     # environments
     content::type::attribute::delete -content_type imsld_environment -attribute_name component_id
     content::type::attribute::delete -content_type imsld_environment -attribute_name identifier
-    content::type::attribute::delete -content_type imsld_environment -attribute_name learning_object_id
 
-    # send mail service
+    # services
     content::type::attribute::delete -content_type imsld_service -attribute_name environment_id
     content::type::attribute::delete -content_type imsld_service -attribute_name identifier
     content::type::attribute::delete -content_type imsld_service -attribute_name class