Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	30 Jul 2004 22:50:08 -0000	1.13
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	20 Aug 2004 00:34:23 -0000	1.14
@@ -44,7 +44,7 @@
 
 ad_proc -public evaluation::get_user_portrait { 
     -user_id:required
-    {tag_attributes ""}
+    {-tag_attributes ""}
 } { 
 	returns the portrait for the given user or a default portrait if not found.
 } {  
@@ -55,11 +55,16 @@
 	set output "<img src=\"[lindex [site_node::get_url_from_object_id -object_id [ad_conn package_id]] 0]resources/photo_na.gif\" "
     }
 
-    foreach attribute_name [array names tag_attributes] {
-	if { [string equal $tag_attributes($attribute_name) {}] } {
-        append output " $attribute_name"
-	} else {
-        append output " $attribute_name=\"$attributes($attribute_name)\""
+    if { ![empty_string_p $tag_attributes] } {
+	for {set i 0} { $i < [ns_set size $tag_attributes] } { incr i } {
+	    set attribute_name [ns_set key $tag_attributes $i]
+	    set attribute_value [ns_set value $tag_attributes $i]
+	    
+	    if { [string equal $attribute_name {}] } {
+		append output " $attribute_name"
+	    } else {
+		append output " $attribute_name=\"$attribute_value\""
+	    }
 	}
     }
 
Index: openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl	12 Aug 2004 17:46:42 -0000	1.11
+++ openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl	20 Aug 2004 00:34:23 -0000	1.12
@@ -212,7 +212,11 @@
     
     incr not_evaluated_with_answer
     if { $number_of_members == 1 } {
-	set portrait "<a href=\"../grades/student-grades-report?[export_vars -url { { student_id $party_id } }]\">[evaluation::get_user_portrait -user_id $party_id { {alt "[_ evaluation.lt_No_portrait_for_party]"} }]</a>"
+	set tag_attributes [ns_set create]
+	ns_set put $tag_attributes alt "[_ evaluation.lt_No_portrait_for_party]"
+	ns_set put $tag_attributes width 98
+	ns_set put $tag_attributes height 104
+	set portrait "<a href=\"../grades/student-grades-report?[export_vars -url { { student_id $party_id } }]\">[evaluation::get_user_portrait -user_id $party_id -tag_attributes]</a>"
     } else {
 	set party_url "../groups/one-task?[export_vars -url { task_id return_url }]#groups"
     }
@@ -314,7 +318,11 @@
     
     incr not_evaluated_with_no_answer
     if { $number_of_members == 1 } {
-	set portrait "<a href=\"../grades/student-grades-report?[export_vars -url { { student_id $party_id } }]\">[evaluation::get_user_portrait -user_id $party_id { {alt "[_ evaluation.lt_No_portrait_for_party]"} }]</a>"
+	set tag_attributes [ns_set create]
+	ns_set put $tag_attributes alt "[_ evaluation.lt_No_portrait_for_party]"
+	ns_set put $tag_attributes width 98
+	ns_set put $tag_attributes height 104
+	set portrait "<a href=\"../grades/student-grades-report?[export_vars -url { { student_id $party_id } }]\">[evaluation::get_user_portrait -user_id $party_id -tag_attributes $tag_attributes]</a>"
     } else {
 	set party_url "../groups/one-task?[export_vars -url { task_id return_url }]#groups"
     }