Index: openacs-4/packages/assessment/www/finish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/finish.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/assessment/www/finish.tcl	1 Dec 2008 16:57:02 -0000	1.9
+++ openacs-4/packages/assessment/www/finish.tcl	16 Apr 2009 11:40:30 -0000	1.10
@@ -37,10 +37,11 @@
 set page_title "[_ assessment.Response_Submitted]"
 set context [list $page_title]
 
-callback imsld::finish_object -object_id $assessment_id 
+# Raise finish_object event
+ns_log Debug "Assessment (www/finish): callback imsld::finish_object called with object_id($assessment_id), user_id($user_id), session_id($session_id)"
 
+callback imsld::finish_object -object_id $assessment_id -user_id $user_id -session_id $session_id
 
-
 if { [exists_and_not_null next_asm ] } {
     ad_returnredirect "assessment?assessment_id=$next_asm"
 }