loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.245, 2011/02/02 18:48:06	version 1.247, 2011/06/08 01:39:32
Line 402 sub setup_capa_response {	Line 402 sub setup_capa_response {

sub check_submission {	sub check_submission {
my ($response,$partid,$id,$tag,$parstack,$safeeval,$ignore_sig)=@_;	my ($response,$partid,$id,$tag,$parstack,$safeeval,$ignore_sig)=@_;
my @args = ('type','tol','sig','format','unit','calc','samples');	my @args = ('type','tol','sig','format','unit','calc','samples','preprocess');
my $args_ref = &setup_capa_args($safeeval,$parstack,\@args,$response);	my $args_ref = &setup_capa_args($safeeval,$parstack,\@args,$response);

my $hideunit=	my $hideunit=
Line 1136 sub start_stringresponse {	Line 1136 sub start_stringresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
	undef(%answer);
if ($target eq 'meta') {	if ($target eq 'meta') {
$result=&Apache::response::meta_package_write('stringresponse');	$result=&Apache::response::meta_package_write('stringresponse');
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {