loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.492, 2007/11/16 07:56:15	version 1.494, 2007/11/16 08:52:15
Line 5403 sub scantron_parse_scanline {	Line 5403 sub scantron_parse_scanline {
$questions =~ s/\r$//; # Get rid of trailing \r too (MAC or Win uploads).	$questions =~ s/\r$//; # Get rid of trailing \r too (MAC or Win uploads).
while (length($questions)) {	while (length($questions)) {
my $answers_needed = $bubble_lines_per_response{$questnum};	my $answers_needed = $bubble_lines_per_response{$questnum};
my $answer_length = $$scantron_config{'Qlength'} * $answers_needed;	my $answer_length = ($$scantron_config{'Qlength'} * $answers_needed)
	\|\| 1;

$questnum++;	$questnum++;
my $currentquest = substr($questions,0,$answer_length);	my $currentquest = substr($questions,0,$answer_length);
Line 6959 sub scantron_get_maxbubble {	Line 6959 sub scantron_get_maxbubble {
my $bubble_line = 0;	my $bubble_line = 0;
foreach my $resource (@resources) {	foreach my $resource (@resources) {
my $symb = $resource->symb();	my $symb = $resource->symb();
&Apache::lonxml::clear_bubble_lines_for_part();
my $result=&Apache::lonnet::ssi($resource->src(),	my $result=&Apache::lonnet::ssi($resource->src(),
('symb' => $resource->symb()),	('symb' => $resource->symb()),
('grade_target' => 'analyze'),	('grade_target' => 'analyze'),