loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.36, 2004/08/25 20:00:31	version 1.39, 2004/10/07 20:28:30
Line 198 sub grade_response {	Line 198 sub grade_response {
my ($temp,$right,$wrong,$ignored)=(1,0,0,0);	my ($temp,$right,$wrong,$ignored)=(1,0,0,0);
my @correctorder=&get_correct_order($tol,@whichfoils);	my @correctorder=&get_correct_order($tol,@whichfoils);
foreach my $name (@whichfoils) {	foreach my $name (@whichfoils) {
my $response = &Apache::response::getresponse($temp);	my $response = &Apache::response::getresponse($temp,'A is 1');
my $value=shift(@correctorder);	my $value=shift(@correctorder);
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
$responsehash{$name}=$response;	$responsehash{$name}=$response;
Line 376 sub start_foil {	Line 376 sub start_foil {
my $result='';	my $result='';
if ($target eq 'web' \|\| $target eq 'tex' \|\| $target eq 'analyze') {	if ($target eq 'web' \|\| $target eq 'tex' \|\| $target eq 'analyze') {
&Apache::lonxml::startredirection;	&Apache::lonxml::startredirection;
	if ($target eq 'analyze') {
	&Apache::response::check_if_computed($token,$parstack,$safeeval,'value');
	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::tag_start($target,$token,"Foil");	$result=&Apache::edit::tag_start($target,$token,"Foil");
my $level='-2';	my $level='-2';