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.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/reorder-items.tcl	15 May 2007 20:14:43 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/reorder-items.tcl	17 Nov 2008 13:36:44 -0000	1.4
@@ -3,36 +3,34 @@
 } {
    item_id:integer,notnull
    dir:notnull
-} 
+}
 
 set ims_item_id $item_id
 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 "select ims_item_id
+        from ims_cp_items
+        where parent_item=:parent_item for update"
 
     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 "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)"
 
-    } on_error {
-
+} on_error {
     ad_return_error "Database error" "A database error occured while trying
-to swap your items. Here's the error:
-<pre>
-$errmsg
-</pre>
-"
+        to swap your items. Here's the error: <pre>$errmsg</pre>"
     ad_script_abort
 }