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