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.11 -r1.12
--- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	7 Jun 2006 18:46:42 -0000	1.11
+++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	12 Jun 2006 01:52:19 -0000	1.12
@@ -640,7 +640,8 @@
     @option item_id item id to be removed.
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-#    db_transaction {
+    db_transaction {
+	content::item::delete -item_id [content::revision::item_id -revision_id $item_id]
         set ret [db_exec_plsql delete_item {
                 select ims_item__delete (
                                     :item_id
@@ -819,15 +820,16 @@
     @option res_id resource id to be removed.
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-#    db_transaction {
+    db_transaction {
+	content::item::delete -item_id [content::revision::item_id -revision_id $res_id]
         set ret [db_exec_plsql delete_resource {
                 select ims_resource__delete (
                                     :res_id
                                     );
 
         }
                 ]
-#    }
+    }
     return $ret
 }
 
@@ -1174,13 +1176,15 @@
     if {$title eq ""} {
         set title $object(title)
     }
+    
     set item_id [lors::imscp::item_add \
                      -org_id $org_id \
                      -itm_folder_id $folder_id \
                      -identifier ${object(object_type)}_${object_id} \
                      -identifierref $object_id \
                      -parent_item $parent_item \
-                     -title $object(title)]
+                     -title $title]
+    db_dml set_sort_order "update ims_cp_items set sort_order = (select coalesce(max(sort_order),0) from ims_cp_items where parent_item=:parent_item) + 1 where ims_item_id=:item_id"
 
     return $item_id