loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.221.2.1, 2011/10/08 20:51:30	version 1.225, 2011/09/08 01:18:15
Line 179 sub setrandomnumber {	Line 179 sub setrandomnumber {
} else {	} else {
($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2");	($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2");
}	}
	$Apache::lonhomework::results{'resource.'.$id1.'.rawrndseed'}=$rndseed;
if ($rndseed =~/([,:])/) {	if ($rndseed =~/([,:])/) {
my $char=$1;	my $char=$1;
use integer;	use integer;
Line 196 sub setrandomnumber {	Line 196 sub setrandomnumber {
}	}
}	}
&Apache::lonxml::debug("randseed $rndmod $rndseed");	&Apache::lonxml::debug("randseed $rndmod $rndseed");
	$Apache::lonhomework::results{'resource.'.$id1.'.rndseed'}=$rndseed;
&Apache::lonnet::setup_random_from_rndseed($rndseed);	&Apache::lonnet::setup_random_from_rndseed($rndseed);
return '';	return '';
}	}
Line 1140 sub whichorder {	Line 1141 sub whichorder {

sub show_answer {	sub show_answer {
my $part = $Apache::inputtags::part;	my $part = $Apache::inputtags::part;
my $award = $Apache::lonhomework::history{"resource.$part.solved"};	my $award = $Apache::lonhomework::history{"resource.$part.awarded"};
my $status = $Apache::inputtags::status[-1];	my $status = $Apache::inputtags::status[-1];
return ( ($award =~ /^correct/	return ( ($award ==1
&& &Apache::lonhomework::show_problem_status())	&& &Apache::lonhomework::show_problem_status())
\|\| $status eq "SHOW_ANSWER");	\|\| $status eq "SHOW_ANSWER");
}	}