--- loncom/homework/grades.pm 2007/10/26 00:39:09 1.467 +++ loncom/homework/grades.pm 2007/10/29 09:46:28 1.470 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.467 2007/10/26 00:39:09 albertel Exp $ +# $Id: grades.pm,v 1.470 2007/10/29 09:46:28 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1739,27 +1739,27 @@ sub show_problem { $companswer=~s|||g; $companswer=~s|name="submit"|name="would_have_been_submit"|g; } - my $result.='
';
- $result.='
|
'.$env{'form.fullname'}.' | ||||||
---|---|---|---|---|---|---|
');
+ ' '.
+ ' '.&nameUserString(undef,$env{'form.fullname'},$uname,$udom).' '.
+ ''."\n");
if ($env{'form.vProb'} eq 'all' or $env{'form.vAns'} eq 'all') {
my $mode;
@@ -1982,12 +1977,19 @@ KEYWORDS
# Display student info
$request->print(($counter == 0 ? '' : ' '."\n";
if (($env{'form.command'} eq 'submission') ||
($env{'form.command'} eq 'processGroup' && $counter == $total)) {
$toGrade.=''.&show_grading_menu_form($symb);
@@ -2125,11 +2129,15 @@ KEYWORDS
$request->print($toGrade);
return;
} else {
- $request->print('')); - my $result='
|
$quest | "); for (my $l = 0; $l < $lines; $l++) { @@ -6851,8 +6880,12 @@ sub scantron_validate_missingbubbles { $scan_data); if (!defined($$scan_record{'scantron.missingerror'})) { next; } my @to_correct; + + # Probably here's where the error is... + foreach my $missing (@{$$scan_record{'scantron.missingerror'}}) { if ($missing > $max_bubble) { next; } + &Apache::lonnet::logthis("Marking $missing for missing bubble check"); push(@to_correct,$missing); } if (@to_correct) {