Index: openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.tcl	15 Jun 2004 23:23:13 -0000	1.3
+++ openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.tcl	7 Jul 2004 17:27:27 -0000	1.4
@@ -111,7 +111,13 @@
 	if { [empty_string_p $answer_data] } {
 	    set answer_url ""
 	    set answer ""
-	} elseif { [regexp "http://" $answer_data] } {
+	} elseif { [empty_string_p [db_string content_length "select content_length from cr_revisions where revision_id = :answer_id"]] } {
+	    # 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]"]
+	    if { ![regexp ([join [split [parameter::get -parameter urlProtocols -package_id $community_info(package_id)] ","] "|"]) "$answer_data"] } {
+		set answer_data "http://$answer_data"
+	    } 
 	    set answer_url "[export_vars -base "$answer_data" { }]"
 	    set answer "[_ evaluation-portlet.View_my_answer_]"
 	} else {