Index: openacs-4/packages/imsld/sql/postgresql/imsld-level-a-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/sql/postgresql/imsld-level-a-create.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/imsld/sql/postgresql/imsld-level-a-create.sql	20 Jul 2006 16:18:48 -0000	1.6
+++ openacs-4/packages/imsld/sql/postgresql/imsld-level-a-create.sql	20 Jul 2006 16:24:57 -0000	1.7
@@ -699,10 +699,7 @@
     method_id       integer 
                     constraint imsld_cla_methodid_fk 
                     references cr_items,    --imsld_methods
-    identifier      varchar(200),
-    with_control_p  char(1)
-                    check (with_control_p in ('t','f'))   
-                    default 'f'
+    identifier      varchar(200)
 );
 
 comment on table imsld_classes is '
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.32 -r1.33
--- openacs-4/packages/imsld/tcl/imsld-install-procs.tcl	20 Jul 2006 16:18:49 -0000	1.32
+++ openacs-4/packages/imsld/tcl/imsld-install-procs.tcl	20 Jul 2006 16:24:57 -0000	1.33
@@ -212,7 +212,6 @@
 
     content::type::attribute::new -content_type imsld_class -attribute_name method_id -datatype number -pretty_name "#imsld.Method_Identifier#" -column_spec "integer"
     content::type::attribute::new -content_type imsld_class -attribute_name identifier -datatype string -pretty_name "#imsld.lt_IMS-LD_Class_Ideintif#" -column_spec "varchar(200)"
-    content::type::attribute::new -content_type imsld_class -attribute_name with_control_p -datatype string -pretty_name "#imsld.With_Control_1#" -column_spec "char(1)"
 
     ### IMS-LD Content Packaging
 
@@ -774,7 +773,6 @@
     # classes
     content::type::attribute::delete -content_type imsld_class -attribute_name method_id
     content::type::attribute::delete -content_type imsld_class -attribute_name identifier
-    content::type::attribute::delete -content_type imsld_class -attribute_name with_control_p
 
     ### IMS-LD Content Packaging
     
Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	20 Jul 2006 16:18:49 -0000	1.54
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	20 Jul 2006 16:24:57 -0000	1.55
@@ -3578,13 +3578,9 @@
     @param parent_id Parent folder ID
 } {
     set class_identifier [imsld::parse::get_attribute -node $class_node -attr_name class]
-    set title [imsld::parse::get_attribute -node $class_node -attr_name title]
-    set with_control_p [imsld::parse::get_attribute -node $class_node -attr_name with-control]
     set class_id [imsld::item_revision_new -attributes [list [list identifier $class_identifier] \
-                                                            [list method_id $method_id] \
-                                                            [list with_control_p $with_control_p]] \
+                                                            [list method_id $method_id]] \
                       -content_type imsld_class \
-                      -title $title \
                       -parent_id $parent_id]
 }