Index: openacs-4/packages/evaluation/www/admin/grades/student-grades-report.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/student-grades-report.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/evaluation/www/admin/grades/student-grades-report.tcl	15 Jun 2004 23:20:29 -0000	1.1
+++ openacs-4/packages/evaluation/www/admin/grades/student-grades-report.tcl	24 Aug 2004 22:40:33 -0000	1.2
@@ -15,7 +15,9 @@
 
 db_1row student_info { *SQL* } 
 
-set portrait [evaluation::get_user_portrait -user_id $student_id { {alt "[_ evaluation.lt_No_portrait_for_stude]"} }]
+set tag_attributes [ns_set create]
+ns_set put $tag_attributes alt [_ evaluation.lt_No_portrait_for_stude]
+set portrait [evaluation::get_user_portrait -user_id $student_id -tag_attributes $tag_attributes]
 
 set page_title "[_ evaluation.lt_Grades_Report_for_stu]"
 set context {}