--- loncom/homework/grades.pm	2002/11/27 16:39:37	1.62
+++ loncom/homework/grades.pm	2002/12/02 17:30:30	1.64
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.62 2002/11/27 16:39:37 albertel Exp $
+# $Id: grades.pm,v 1.64 2002/12/02 17:30:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1725,8 +1725,8 @@ sub viewstudentgrade {
 	'<a href="javascript:viewOneStudent(\''.$uname.'\',\''.$udom.
 	'\')"; TARGET=_self>'.$fullname.'</a>'.
 	'</td><td>'.$uname.'</td><td align="middle">'.$udom.'</td>'."\n";
-    foreach my $part (@$parts) {
-	my ($part,$type) = &split_part_type($part);
+    foreach my $apart (@$parts) {
+	my ($part,$type) = &split_part_type($apart);
 	my $score=$record{"resource.$part.$type"};
 	if ($type eq 'awarded') {
 	    my $pts = $score eq '' ? '' : $score*$$weight{$part};