Index: openacs-4/packages/assessment/www/finish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/finish.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/finish.tcl	2 Mar 2005 22:37:05 -0000	1.3
+++ openacs-4/packages/assessment/www/finish.tcl	3 Mar 2005 22:46:41 -0000	1.4
@@ -13,10 +13,15 @@
     page_title:onevalue
 }
 
+set user_id [ad_conn user_id]
 
+if { $user_id != 0} {
+    db_dml update_session {update as_sessions set subject_id=:user_id where session_id=:session_id}
+}
+
 if {[info exists return_url]} {
     if { $return_url != ""} {
-    ad_returnredirect "$return_url"
+	ad_returnredirect "$return_url"
     }
 }
 set page_title "[_ assessment.Response_Submitted]"