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.13 -r1.14
--- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	13 Jul 2006 16:23:00 -0000	1.13
+++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	15 May 2007 20:14:43 -0000	1.14
@@ -590,6 +590,8 @@
         }
                         ]
 
+   set next_sort_order [db_string get_max "select coalesce(max(sort_order)+1,1) from ims_cp_items where org_id=:org_id"]
+   db_dml set_sort_order "update ims_cp_items set sort_order = :next_sort_order where ims_item_id = :item_id"
 #    }
 
     if {![empty_string_p $dotlrn_permission]} {