Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/assessment/www/assessment.tcl	7 Oct 2004 10:58:07 -0000	1.7
+++ openacs-4/packages/assessment/www/assessment.tcl	7 Oct 2004 13:39:57 -0000	1.8
@@ -11,9 +11,19 @@
 set context [list "[_ assessment.Show_Items]"]
 
 set as_session_id [as_session_new -assessment_id $assessment_id -subject_id [ad_conn user_id]]
-set assessment_name [db_string assessment_name {SELECT as_assessmentsx.title FROM as_assessmentsx WHERE as_assessmentsx.assessment_id=:assessment_id}]
-db_dml session_start {UPDATE as_sessions SET creation_datetime = NOW() WHERE session_id=:as_session_id}
 
+set assessment_name [db_string assessment_name {
+    SELECT title
+    FROM as_assessmentsx
+    WHERE assessment_id = :assessment_id
+}]
+
+db_dml session_start {
+    UPDATE as_sessions
+    SET creation_datetime = NOW()
+    WHERE session_id = :as_session_id
+}
+
 ad_form -name show_item_form -action process-response -html {enctype multipart/form-data} -form {
     { as_session_id:text {value $as_session_id} }
 }