Index: openacs-4/packages/assessment/tcl/as-item-type-mc-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-mc-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-item-type-mc-procs-postgresql.xql	18 Jan 2005 12:42:37 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs-postgresql.xql	15 May 2007 20:14:17 -0000	1.3
@@ -55,4 +55,16 @@
       </querytext>
 </fullquery>
 
+<fullquery name="as::item_type_mc::choices_swap.swap_choices">
+      <querytext>
+update as_item_choices
+set sort_order = (case when sort_order = (cast (:sort_order as integer)) then
+      cast (:next_sort_order as integer)
+      when 
+sort_order = (cast (:next_sort_order as integer)) then cast (:sort_order as integer) end)
+where mc_id = :new_mc_id
+and sort_order in (:sort_order, :next_sort_order)
+      </querytext>
+</fullquery>
+
 </queryset>