Index: openacs-4/packages/evaluation-portlet/lib/tasks-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/tasks-chunk.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/evaluation-portlet/lib/tasks-chunk.tcl	30 Aug 2004 13:05:00 -0000	1.9
+++ openacs-4/packages/evaluation-portlet/lib/tasks-chunk.tcl	11 Sep 2004 00:41:09 -0000	1.10
@@ -12,7 +12,7 @@
 set base_url "[ad_conn package_url][evaluation::package_key]/"
 
 set mode display
-set return_url "[ad_conn url]?[ns_conn query]&[export_vars { grade_id }]"
+set return_url "[ad_conn url]?[ns_conn query]"
 
 set elements [list task_name \
 		  [list label "[_ evaluation-portlet.Name_]" \
@@ -115,7 +115,7 @@
 	} else {
 	    # we assume it's a file
 	    set task_url "[export_vars -base "${base_url}view/$task_title" { revision_id }]"
-	    set task_name "$task_name ([format %.0f [lc_numeric [expr ($content_length/1024)]]] Kb)"
+	    set task_name "$task_name ([lc_numeric $content_length] Kb - ${pretty_mime_type})"
 	}
 
 	if { [db_0or1row solution_info { *SQL* }] } { 
@@ -157,7 +157,7 @@
 	} else {
 	    # we assume it's a file
 	    set task_url "[export_vars -base "${base_url}view/$task_title" { revision_id }]"
-	    set task_name "$task_name ([format %.0f [lc_numeric [expr ($content_length/1024)]]] Kb)"
+	    set task_name "$task_name ([lc_numeric $content_length] Kb - ${pretty_mime_type})"
 	}
 
 	if { [string eq $online_p "t"] } {