loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/rankresponse.pm between versions 1.49 and 1.54

version 1.49, 2005/12/06 10:13:46	version 1.54, 2007/10/08 09:22:50
Line 67 sub start_rankresponse {	Line 67 sub start_rankresponse {
} elsif ($target eq 'analyze') {	} elsif ($target eq 'analyze') {
my $part_id="$Apache::inputtags::part.$id";	my $part_id="$Apache::inputtags::part.$id";
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);	push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
	push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1);

}	}
return $result;	return $result;
}	}
Line 105 sub end_foilgroup {	Line 107 sub end_foilgroup {
if (!defined($tol)) { $tol=0; }	if (!defined($tol)) { $tol=0; }
if ($target eq 'web' \|\| $target eq 'tex') {	if ($target eq 'web' \|\| $target eq 'tex') {
$result=&displayfoils($target,$max,$randomize,$tol);	$result=&displayfoils($target,$max,$randomize,$tol);
	$Apache::lonxml::post_evaluate=0;
} elsif ($target eq 'answer' ) {	} elsif ($target eq 'answer' ) {
$result=&displayanswers($max,$randomize,$tol);	$result=&displayanswers($max,$randomize,$tol);
} elsif ( $target eq 'grade') {	} elsif ( $target eq 'grade') {
Line 117 sub end_foilgroup {	Line 120 sub end_foilgroup {
"$Apache::inputtags::part.$Apache::inputtags::response[-1]";	"$Apache::inputtags::part.$Apache::inputtags::response[-1]";
$Apache::lonhomework::analyze{"$part_id.tol"}=$tol;	$Apache::lonhomework::analyze{"$part_id.tol"}=$tol;
}	}
&Apache::lonxml::increment_counter(&getfoilcounts($max));	&Apache::lonxml::increment_counter(&getfoilcounts($max),
	$Apache::inputtags::part);
	if ($target eq 'analyze') {
	&Apache::lonhomework::set_bubble_lines();
	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::end_table();	$result=&Apache::edit::end_table();
}	}
Line 263 sub grade_response {	Line 270 sub grade_response {
&Apache::response::handle_previous(\%previous,$ad);	&Apache::response::handle_previous(\%previous,$ad);
}	}

	sub format_prior_answer {
	my ($mode,$answer,$other_data) = @_;
	my %lastresponse=&Apache::lonnet::str2hash($answer);
	my $foil_order =$other_data->[0];
	my %grading =&Apache::lonnet::str2hash($other_data->[1]);
	my $output;
	foreach my $name (@{ $foil_order }) {
	next if (!defined($lastresponse{$name}));
	$output .= '<tr><td>'.$lastresponse{$name}.'</td></tr>';
	}
	return if (!defined($output));
	$output =
	'<table class="LC_prior_rank">'.$output.'</table>';
	return $output;
	}

sub displayfoils {	sub displayfoils {
my ($target,$max,$randomize,$tol)=@_;	my ($target,$max,$randomize,$tol)=@_;
my $result;	my $result;
Line 304 sub displayfoils {	Line 327 sub displayfoils {
}	}
}	}
if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') {	if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') {
$optionlist='<select name="HWVAL_'.	$optionlist='<select onchange="javascript:setSubmittedPart(\''.
	$part.'\');" name="HWVAL_'.
$Apache::inputtags::response[-1].':'.$temp.'">'.	$Apache::inputtags::response[-1].':'.$temp.'">'.
$optionlist."</select>\n";	$optionlist."</select>\n";
} else {	} else {
Line 333 sub displayfoils {	Line 357 sub displayfoils {
$temp++;	$temp++;
}	}
}	}
	if ($target eq 'web') {
	&Apache::response::setup_prior_tries_hash(\&format_prior_answer,
	[\@whichfoils,
	'submissiongrading']);
	}
if ($target ne 'tex') {$result.="<br />";} else {$result.=' \vskip 0 mm ';}	if ($target ne 'tex') {$result.="<br />";} else {$result.=' \vskip 0 mm ';}
return $result;	return $result;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.49
changed lines
	Added in v.1.54