Index: openacs-4/packages/assessment/www/finish.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/finish.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/finish.tcl 24 Jan 2005 14:54:31 -0000 1.2 +++ openacs-4/packages/assessment/www/finish.tcl 2 Mar 2005 22:37:05 -0000 1.3 @@ -7,12 +7,20 @@ } { session_id:integer,notnull assessment_id:integer,notnull + return_url:optional } -properties { context_bar:onevalue page_title:onevalue } + +if {[info exists return_url]} { + if { $return_url != ""} { + ad_returnredirect "$return_url" + } +} set page_title "[_ assessment.Response_Submitted]" set context_bar [ad_context_bar $page_title] + ad_return_template