--- loncom/homework/grades.pm 2005/02/12 15:18:41 1.246 +++ loncom/homework/grades.pm 2005/02/17 08:58:16 1.247 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.246 2005/02/12 15:18:41 albertel Exp $ +# $Id: grades.pm,v 1.247 2005/02/17 08:58:16 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2971,11 +2971,18 @@ sub csvuploadassign { $username=~s/\s//g; if (!$username) { my $id=$entries{$fields{'ID'}}; + $id=~s/\s//g; my %ids=&Apache::lonnet::idget($domain,$id); $username=$ids{$id}; } if (!exists($$classlist{"$username:$domain"})) { - push(@skipped,"$username:$domain"); + my $id=$entries{$fields{'ID'}}; + $id=~s/\s//g; + if ($id) { + push(@skipped,"$id:$domain"); + } else { + push(@skipped,"$username:$domain"); + } next; } my $usec=$classlist->{"$username:$domain"}[5]; @@ -2993,6 +3000,7 @@ sub csvuploadassign { my $part=$1; my $wgt =&Apache::lonnet::EXT('resource.'.$part.'.weight', $symb,$domain,$username); + $entries{$fields{$dest}}=~s/\s//g; my $pcr=$entries{$fields{$dest}} / $wgt; my $award='correct_by_override'; $grades{"resource.$part.awarded"}=$pcr;