Index: openacs-4/packages/lors/tcl/lors-imscp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-procs.tcl,v
diff -u -r1.7.2.3.2.1 -r1.7.2.3.2.2
--- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	29 Aug 2006 11:36:09 -0000	1.7.2.3.2.1
+++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	21 Sep 2006 10:45:30 -0000	1.7.2.3.2.2
@@ -309,7 +309,7 @@
 
             # remove ims_cp_items
             foreach item_id [db_list get_items {} ] {
-		db_dml delete_map {}
+#		db_dml delete_map {}
 #		ad_return_complaint 1 "item_id $item_id ims_item_id $ims_item_id"
 		content::item::delete -item_id $item_id
             }
@@ -329,7 +329,7 @@
 
             # remove ims_cp_organization
             foreach org_item_id [db_list get_org {} ] {
-		db_dml delete_map_org_item_id {}
+		#db_dml delete_map_org_item_id {}
 		content::item::delete -item_id $org_item_id
             }