--- loncom/homework/grades.pm 2017/07/02 16:50:30 1.741 +++ loncom/homework/grades.pm 2017/08/11 18:58:17 1.742 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.741 2017/07/02 16:50:30 raeburn Exp $ +# $Id: grades.pm,v 1.742 2017/08/11 18:58:17 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4405,8 +4405,10 @@ sub csvuploadmap { if (!$env{'form.datatoken'}) { $datatoken=&Apache::loncommon::upfile_store($request); } else { - $datatoken=$env{'form.datatoken'}; - &Apache::loncommon::load_tmp_file($request); + $datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'}); + if ($datatoken ne '') { + &Apache::loncommon::load_tmp_file($request,$datatoken); + } } my @records=&Apache::loncommon::upfile_record_sep(); &csvuploadmap_header($request,$symb,$datatoken,$#records+1); @@ -4495,7 +4497,10 @@ sub csvuploadassign { my ($request,$symb)= @_; if (!$symb) {return '';} my $error_msg = ''; - &Apache::loncommon::load_tmp_file($request); + my $datatoken = &Apache::loncommon::valid_datatoken($env{'form.datatoken'}); + if ($datatoken ne '') { + &Apache::loncommon::load_tmp_file($request,$datatoken); + } my @gradedata = &Apache::loncommon::upfile_record_sep(); my %fields=&get_fields(); my $courseid=$env{'request.course.id'};