Index: openacs-4/packages/evaluation/www/view/evaluation-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/view/evaluation-view.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/evaluation/www/view/evaluation-view.tcl	7 Oct 2007 22:37:00 -0000	1.3
+++ openacs-4/packages/evaluation/www/view/evaluation-view.tcl	27 Oct 2014 16:41:28 -0000	1.4
@@ -7,7 +7,7 @@
     @creation-date Sept 2004
     @cvs-id $Id$
 } {
-    evaluation_id:integer,notnull
+    evaluation_id:naturalnum,notnull
     {return_url ""}
 }
 
@@ -38,9 +38,9 @@
 set grade_weight [lc_numeric %.2f $grade_weight]
 set net_grade [lc_numeric %.2f $net_grade]
 
-if { ![empty_string_p $answer_data] } {
+if { $answer_data ne "" } {
     
-    if { [string eq $answer_title "link"] } {
+    if {$answer_title eq "link"} {
  	set answer_url "<a href=\"$answer_data\">$answer_data</a>"
     } else {
 	# we assume it's a file