loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.480, 2007/11/05 11:46:08	version 1.481, 2007/11/06 10:12:27
Line 42 use Apache::Constants qw(:common);	Line 42 use Apache::Constants qw(:common);
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonenc;	use Apache::lonenc;
use String::Similarity;	use String::Similarity;
use Data::Dumper;
use LONCAPA;	use LONCAPA;

use POSIX qw(floor);	use POSIX qw(floor);
Line 5174 sub scantron_fixup_scanline {	Line 5173 sub scantron_fixup_scanline {
my @alphabet=('A'..'Z');	my @alphabet=('A'..'Z');
$answer=$alphabet[$bubble_number];	$answer=$alphabet[$bubble_number];
} elsif ($on eq 'number') {	} elsif ($on eq 'number') {
$answer=$args->$bubble_number+1;	$answer=$args->{$bubble_number+1};
if ($answer == 10) { $answer = '0'; }	if ($answer == 10) { $answer = '0'; }
} else {	} else {
substr($answer,$args->{'response'},1)=$on;	substr($answer,$args->{'response'},1)=$on;