--- loncom/homework/grades.pm 2003/06/23 21:14:55 1.107
+++ loncom/homework/grades.pm 2003/06/24 15:45:17 1.108
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.107 2003/06/23 21:14:55 albertel Exp $
+# $Id: grades.pm,v 1.108 2003/06/24 15:45:17 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2083,7 +2083,7 @@ sub editgrades {
$line .= '
'.$uname.' | '.
$udom.' | '.
$$fullname{$usercolon}.' | ';
- my $usec=%$classlist->{"$uname:$udom"}[5];
+ my $usec=$classlist->{"$uname:$udom"}[5];
if (!&canmodify($usec)) {
my $numcols=scalar(@partid)*(scalar(@parts)-1)*2;
$noupdate.=$line."Not allowed to modify student |
";
@@ -2440,7 +2440,7 @@ sub csvuploadassign {
push(@skipped,"$username:$domain");
next;
}
- my $usec=%$classlist->{"$username:$domain"}[5];
+ my $usec=$classlist->{"$username:$domain"}[5];
if (!&canmodify($usec)) {
push(@notallowed,"$username:$domain");
next;