--- loncom/homework/grades.pm	2003/07/31 15:08:41	1.129
+++ loncom/homework/grades.pm	2003/08/06 19:32:18	1.130
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.129 2003/07/31 15:08:41 ng Exp $
+# $Id: grades.pm,v 1.130 2003/08/06 19:32:18 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2175,7 +2175,7 @@ sub viewgrades {
 
 #--- call by previous routine to display each student
 sub viewstudentgrade {
-    my ($$url,$symb,$courseid,$student,$fullname,$parts,$weight,$ctr) = @_;
+    my ($url,$symb,$courseid,$student,$fullname,$parts,$weight,$ctr) = @_;
     my ($uname,$udom) = split(/:/,$student);
     $student=~s/:/_/;
     my %record=&Apache::lonnet::restore($symb,$courseid,$udom,$uname);