Index: openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl	20 Jul 2006 16:18:49 -0000	1.9
+++ openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl	24 Jul 2006 14:19:30 -0000	1.10
@@ -478,9 +478,7 @@
     # 7. classes
     db_foreach class {
         select cla.class_id,
-        cla.identifier,
-        cla.with_control_p,
-        cla.title
+        cla.identifier
         from imsld_classesi cla, imsld_methodsi im
         where cla.method_id = im.item_id
         and im.imsld_id = :run_imsld_item_id
@@ -490,7 +488,7 @@
             where identifier = :identifier
             and run_id = :run_id
         }] } {
-            set instance_id [package_exec_plsql -var_list [list [list instance_id ""] [list owner_id ""] [list type "class"] [list identifier $identifier] [list run_id $run_id] [list is_visible_p "t"] [list title $title] [list with_control_p ""]] imsld_attribute_instance new]
+            set instance_id [package_exec_plsql -var_list [list [list instance_id ""] [list owner_id ""] [list type "class"] [list identifier $identifier] [list run_id $run_id] [list is_visible_p "t"] [list title ""] [list with_control_p ""]] imsld_attribute_instance new]
         }
     }