loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.43, 2005/01/10 19:21:57	version 1.45, 2005/03/15 16:55:22
Line 177 sub displayanswers {	Line 177 sub displayanswers {

sub check_response_order {	sub check_response_order {
my (%responsehash)=@_;	my (%responsehash)=@_;
my @order=sort(values(%responsehash));	my @order=sort( {$a <=> $b} values(%responsehash));
my $lastvalue=0;	my $lastvalue=0;
my $expected=1;	my $expected=1;
my $malformed=0;	my $malformed=0;
Line 195 sub check_response_order {	Line 195 sub check_response_order {
sub grade_response {	sub grade_response {
my ($max,$randomize,$tol)=@_;	my ($max,$randomize,$tol)=@_;
my (@whichfoils)=&whichfoils($max,$randomize);	my (@whichfoils)=&whichfoils($max,$randomize);
if (!defined($ENV{'form.submitted'})) { return; }	if (!&Apache::response::submitted()) { return; }
my %responsehash;	my %responsehash;
my %grade;	my %grade;
my ($temp,$right,$wrong,$ignored)=(1,0,0,0);	my ($temp,$right,$wrong,$ignored)=(1,0,0,0);