--- loncom/homework/grades.pm 2018/04/29 15:29:05 1.596.2.12.2.41.2.2 +++ loncom/homework/grades.pm 2018/09/11 14:35:56 1.596.2.12.2.43 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.596.2.12.2.41.2.2 2018/04/29 15:29:05 raeburn Exp $ +# $Id: grades.pm,v 1.596.2.12.2.43 2018/09/11 14:35:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4214,7 +4214,7 @@ sub editgrades { my ($uname,$udom)=split(/:/,$user); my %newrecord; my $updateflag = 0; - my $usec=$classlist->{"$uname:$udom"}[5]; + my $usec=$classlist->{"$uname:$udom"}[5]; my $canmodify = &canmodify($usec); my $line = ''. &nameUserString(undef,$$fullname{$user},$uname,$udom).''; @@ -4607,8 +4607,8 @@ sub csvuploadmap { $datatoken=&Apache::loncommon::upfile_store($request); } else { $datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'}); - if ($datatoken ne '') { - &Apache::loncommon::load_tmp_file($request,$datatoken); + if ($datatoken ne '') { + &Apache::loncommon::load_tmp_file($request,$datatoken); } } my @records=&Apache::loncommon::upfile_record_sep();