Index: openacs-4/packages/assessment/lib/finish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/finish.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/lib/finish.tcl	12 Jun 2006 03:30:09 -0000	1.1
+++ openacs-4/packages/assessment/lib/finish.tcl	16 Apr 2009 11:39:37 -0000	1.2
@@ -26,10 +26,13 @@
 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 (lib/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"
 }