Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/assessment.tcl,v
diff -u -r1.47.2.7 -r1.47.2.8
--- openacs-4/packages/assessment/www/assessment.tcl	27 Jan 2006 09:41:09 -0000	1.47.2.7
+++ openacs-4/packages/assessment/www/assessment.tcl	6 Feb 2006 20:08:29 -0000	1.47.2.8
@@ -49,7 +49,13 @@
 }
 
 set assessment_rev_id $assessment_data(assessment_rev_id)
+set number_tries $assessment_data(number_tries)
+db_1row total_tries {}
+if {![empty_string_p $number_tries] && $number_tries >= $total_tries} {
+    ad_returnredirect [export_vars -base sessions {assessment_id}]
+}
 set errors [as::assessment::check_session_conditions -assessment_id $assessment_rev_id -subject_id $user_id -password $password]
+
 if {![empty_string_p $errors]} {
     ad_return_complaint 1 $errors
     ad_script_abort