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.48 -r1.49
--- openacs-4/packages/assessment/www/assessment.tcl	8 Dec 2005 11:20:44 -0000	1.48
+++ openacs-4/packages/assessment/www/assessment.tcl	6 Feb 2006 20:08:30 -0000	1.49
@@ -47,7 +47,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
Index: openacs-4/packages/assessment/www/assessment.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/assessment.xql,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/assessment/www/assessment.xql	14 Apr 2005 15:12:46 -0000	1.14
+++ openacs-4/packages/assessment/www/assessment.xql	6 Feb 2006 20:08:30 -0000	1.15
@@ -89,4 +89,18 @@
 	</querytext>
 </fullquery>
 	
+<fullquery name="total_tries">
+	<querytext>
+
+	select count(*) as total_tries, max(session_id) as last_session_id
+	from as_sessions s, cr_revisions r, cr_revisions r2
+	where s.subject_id = :user_id
+	and s.completed_datetime is not null
+	and s.assessment_id = r.revision_id
+	and r.item_id = r2.item_id
+	and r2.revision_id = :assessment_id
+
+	</querytext>
+</fullquery>
+
 </queryset>