Index: openacs-4/packages/assessment/www/asm-admin/item-swap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-swap.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/asm-admin/item-swap.tcl	15 May 2007 20:14:18 -0000	1.4
+++ openacs-4/packages/assessment/www/asm-admin/item-swap.tcl	29 Aug 2008 19:10:53 -0000	1.5
@@ -14,6 +14,7 @@
     section_id:integer,notnull
     sort_order:integer,notnull
     direction:notnull
+    return_url:optional
 }
 
 set package_id [ad_conn package_id]
@@ -39,4 +40,10 @@
     ad_script_abort
 }
 
-ad_returnredirect [export_vars -base questions {assessment_id}]\#$as_item_id
+if {![info exists return_url] || $return_url eq ""} {
+    set return_url [export_vars -base questions {return_url assessment_id}]\#$as_item_id
+}
+
+ad_returnredirect $return_url
+ad_script_abort
+