Index: openacs-4/packages/assessment/lib/feedback.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/feedback.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/lib/feedback.tcl	12 Jun 2006 03:30:09 -0000	1.1
+++ openacs-4/packages/assessment/lib/feedback.tcl	12 Jun 2006 14:56:00 -0000	1.2
@@ -19,6 +19,7 @@
     return_url:optional
     next_asm:optional
     {item_id_list:multiple,optional {}}
+    {next_url ""}
 } -properties {
 } -validate {
 } -errors {
@@ -30,8 +31,11 @@
 set page_title "[_ assessment.Show_Items]"
 set context [list $page_title]
 
-if { $return_p && [exists_and_not_null return_url] } {
-    set next_url $return_url
-} else {
-    set next_url [export_vars -base assessment {assessment_id session_id section_order item_order password return_url next_asm section_id}]
-}
+if { $next_url eq "" } {
+    if { $return_p && [exists_and_not_null return_url] } {
+	set next_url $return_url
+	
+    } else {
+	set next_url [export_vars -base assessment {assessment_id session_id section_order item_order password return_url next_asm section_id}]
+    }
+}
\ No newline at end of file