Index: openacs-4/packages/evaluation/www/evaluation-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/evaluation-view.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/evaluation/www/evaluation-view.tcl	22 Dec 2004 22:06:40 -0000	1.4
+++ openacs-4/packages/evaluation/www/evaluation-view.tcl	8 Aug 2006 21:26:41 -0000	1.5
@@ -15,7 +15,10 @@
 set context [list $page_title]
 set user_id [ad_conn user_id]
 
-db_1row get_evaluation_info { *SQL* }
+if { ![db_0or1row get_evaluation_info { *SQL* }] } {
+	ad_return_complaint 1 "Evaluation does not exist"
+	return
+}
 
 ad_form -name evaluation -has_submit 1 -has_edit 1 -mode display -form {