Index: openacs-4/packages/evaluation/www/view/answer-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/view/answer-view.tcl,v
diff -u -r1.3 -r1.3.6.1
--- openacs-4/packages/evaluation/www/view/answer-view.tcl	14 Mar 2008 14:55:13 -0000	1.3
+++ openacs-4/packages/evaluation/www/view/answer-view.tcl	19 Aug 2014 07:35:57 -0000	1.3.6.1
@@ -34,7 +34,7 @@
     if { [db_0or1row get_answer_info { *SQL* }] } {
     
 	# working with answer stuff (if it has a file/url attached)
-	if { [string eq $answer_title "link"] } {
+	if {$answer_title eq "link"} {
 	    # there is a bug in the template::list, if the url does not has a http://, ftp://, the url is not absolute,
 	    # so we have to deal with this case
 	    array set community_info [site_node::get -url "[dotlrn_community::get_community_url [dotlrn_community::get_community_id]][evaluation::package_key]"]
@@ -49,7 +49,7 @@
 	    set answer "[_ evaluation-portlet.View_my_answer_]"
 	}
 	
-	if { $number_of_members > 1 && [string eq [db_string get_group_id { *SQL* }] 0] } {
+	if { $number_of_members > 1 && [string equal [db_string get_group_id { *SQL* }] "0"] } {
 	    set answer ""
 	    set answer_url ""
 	    set grade "[_ evaluation-portlet.No_group_for_task_]"
@@ -73,7 +73,7 @@
 	set submitted_date_mode display
 			set submitted_date_url "[export_vars -base "${base_url}answer-add-edit" { grade_id task_id answer_id return_url answer_mode }]"
     }
-} elseif { [string eq $late_submit_p "t"] } {
+} elseif {$late_submit_p == "t"} {
     if { ![db_0or1row get_answer_info { *SQL* }] } {
 	set submitted_date "[_ evaluation-portlet.lt_submit_answer_style_f]"
 	set submitted_date_mode edit