loncom/homework/externalresponse.pm - diff

Return to externalresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.6, 2005/10/18 15:33:55	version 1.7, 2007/04/18 00:19:37
Line 97 sub end_externalresponse {	Line 97 sub end_externalresponse {
}	}
}	}
}	}
	if ($target eq 'web') {
	&Apache::response::setup_prior_tries_hash(\&format_prior_response);
	}

if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
$target eq 'tex' \|\| $target eq 'analyze') {	$target eq 'tex' \|\| $target eq 'analyze') {
&Apache::lonxml::increment_counter($increment);	&Apache::lonxml::increment_counter($increment);
Line 105 sub end_externalresponse {	Line 109 sub end_externalresponse {
return $result;	return $result;
}	}

	sub format_prior_response {
	my ($mode,$answer) =@_;
	return '<span class="LC_prior_external">'.
	&HTML::Entities::encode($answer,'"<>&').'</span>';
	}

1;	1;
__END__	__END__