Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
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.3.2.1 -r1.3.2.1.2.1
--- openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl	8 Jun 2005 14:21:16 -0000	1.3.2.1
+++ openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl	21 Sep 2006 10:31:32 -0000	1.3.2.1.2.1
@@ -206,11 +206,7 @@
             -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]} {
 
@@ -220,12 +216,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 {}
 
 	    }
 
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?