Index: openacs-4/packages/dotlrn-lorsm/dotlrn-lorsm.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-lorsm/dotlrn-lorsm.info,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-lorsm/dotlrn-lorsm.info	22 Apr 2004 06:52:54 -0000	1.1
+++ openacs-4/packages/dotlrn-lorsm/dotlrn-lorsm.info	4 Sep 2004 14:13:18 -0000	1.2
@@ -6,21 +6,15 @@
     <pretty-plural>dotLRN LORS Management Applets</pretty-plural>
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
-
-    <maturity>
-      <platform id="dotlrn" version="2.1">
-         <level descr="New Submission">0</level>
-      </platform>
-    </maturity>
     
-    <version name="0.1d" url="http://openacs.org/repository/download/apm/dotlrn-lorsm-0.1d.apm">
+    <version name="0.4d" url="http://openacs.org/repository/download/apm/dotlrn-lorsm-0.3d.apm">
         <owner url="mailto:ErnieG@mm.st">Ernie Ghiglione</owner>
-        <release-date>2004-04-10</release-date>
+        <release-date>2004-06-19</release-date>
         <vendor url="http://www.openacs.org">OpenACS</vendor>
 
-        <provides url="dotlrn-lorsm" version="0.1d"/>
-        <requires url="lorsm-portlet" version="0.1d"/>
+        <provides url="dotlrn-lorsm" version="0.4d"/>
         <requires url="dotlrn" version="1.0"/>
+        <requires url="lorsm-portlet" version="0.4d"/>
 
         <callbacks>
         </callbacks>
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.1 -r1.2
--- openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl	22 Apr 2004 06:52:54 -0000	1.1
+++ openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl	4 Sep 2004 14:13:19 -0000	1.2
@@ -206,7 +206,31 @@
             -applet_key [applet_key]
         ]
 
-        db_exec_plsql call_lorsm_clone {}
+	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
+	}]
+
+	if {![empty_string_p $clone_courses]} {
+
+	    foreach course $clone_courses {
+		set man_id [lindex $course 0]
+		set isenabled [lindex $course 4]
+		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)
+		}
+
+	    }
+
+	}
+				   
         return $new_package_id
     }