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.1 -r1.1.2.1
--- openacs-4/packages/lorsm/www/admin/reorder-items.tcl	31 Dec 2006 00:36:04 -0000	1.1
+++ openacs-4/packages/lorsm/www/admin/reorder-items.tcl	13 Apr 2007 17:22:41 -0000	1.1.2.1
@@ -13,9 +13,9 @@
     db_list lock_rows "select ims_item_id from ims_cp_items where parent_item=:parent_item for update"
 
     if { $dir eq "up" } {
-	set next_sort_order [expr { $sort_order - 1 }]
+        set next_sort_order [db_string get_prev_sort_order "" -default 1]
     } else {
-	set next_sort_order [expr { $sort_order + 1 }]
+        set next_sort_order [db_string get_next_sort_order "" -default 1]
     }
 
     db_dml swap_sort_orders "