Index: openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs-postgresql.xql	22 Apr 2004 06:52:54 -0000	1.1
+++ openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs-postgresql.xql	28 Nov 2008 12:35:47 -0000	1.2
@@ -4,13 +4,11 @@
 <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
 <fullquery name="dotlrn_lorsm::clone.call_lorsm_clone">
-  <querytext>
-    select lorsm__clone ( 
+    <querytext>
+        select lorsm__clone (
         :old_package_id,
-        :new_package_id
-      );
-  </querytext>
+        :new_package_id);
+    </querytext>
 </fullquery>
 
-
 </queryset>
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 -N -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
Index: openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.xql	28 Nov 2008 12:35:48 -0000	1.2
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="dotlrn_lorsm::clone.call_lorsm_clone">
+        <querytext>
+            select lorsm__clone (:old_package_id, :new_package_id);
+        </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn_lorsm::clone.course_clone">
+        <querytext>
+            select man_id, lorsm_instance_id, community_id, class_key, isenabled, istrackable
+            from ims_cp_manifest_class
+            where community_id = :old_community_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn_lorsm::clone.add_course">
+        <querytext>
+            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)
+        </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl	14 Nov 2008 14:50:58 -0000	1.5
+++ openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl	28 Nov 2008 12:39:47 -0000	1.6
@@ -14,7 +14,9 @@
 set lors_central_url [apm_package_url_from_id $lors_central_package_id]
 
 if { ![string equal $lors_central_package_id 0] } {
-    set use_lc_p [parameter::get -parameter "UploadUsingLorsCentralP" -package_id $lors_central_package_id]
+    set use_lc_p [parameter::get \
+                    -parameter "UploadUsingLorsCentralP" \
+                    -package_id $lors_central_package_id]
 } else {
     set use_lc_p 0
 }