Index: openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl	14 Nov 2008 14:46:38 -0000	1.6
+++ openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl	28 Nov 2008 12:35:48 -0000	1.7
@@ -227,10 +227,7 @@
                                 -community_id $old_community_id \
                                 -applet_key [applet_key]]
 
-        set clone_courses [db_list_of_lists course_clone { SELECT man_id,
-            lorsm_instance_id, community_id, class_key, isenabled, istrackable
-            FROM ims_cp_manifest_class
-                WHERE community_id = :old_community_id }]
+        set clone_courses [db_list_of_lists course_clone {}]
 
         if {![empty_string_p $clone_courses]} {
             foreach course $clone_courses {
@@ -239,12 +236,7 @@
                 set istrackable [lindex $course 5]
                 set class_key [dotlrn_community::get_community_type_from_community_id $new_community_id]
 
-                db_dml add-course {
-                    insert into ims_cp_manifest_class \
-                    (man_id, lorsm_instance_id, community_id, class_key, isenabled, istrackable) \
-                    values \
-                    (:man_id, :new_package_id, :new_community_id, :class_key, :isenabled, :istrackable)
-                }
+                db_dml add_course {}
             }
         }
         return $new_package_id