Index: openacs-4/packages/lorsm/www/admin/reorder-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/reorder-items.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/reorder-items.tcl	17 Nov 2008 13:36:44 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/reorder-items.tcl	12 Dec 2008 14:25:36 -0000	1.5
@@ -6,27 +6,19 @@
 }
 
 set ims_item_id $item_id
-set man_id [db_string get_man_id ""]
-db_1row get_item_sort_and_parent { }
+set man_id [ db_string get_man_id {} ]
+db_1row get_item_sort_and_parent {}
 
 db_transaction {
-    db_list lock_rows "select ims_item_id
-        from ims_cp_items
-        where parent_item=:parent_item for update"
+    db_list lock_rows {}
 
     if { $dir eq "up" } {
         set next_sort_order [db_string get_prev_sort_order "" -default 1]
     } else {
         set next_sort_order [db_string get_next_sort_order "" -default 1]
     }
 
-    db_dml swap_sort_orders "update ims_cp_items
-        set sort_order =
-            (case when sort_order = :sort_order :: integer then
-            :next_sort_order :: integer when sort_order = :next_sort_order ::integer  then
-            :sort_order end)
-        where parent_item=:parent_item
-            and sort_order in (:sort_order, :next_sort_order)"
+    db_dml swap_sort_orders {}
 
 } on_error {
     ad_return_error "Database error" "A database error occured while trying