--- loncom/homework/caparesponse/caparesponse.pm 2011/02/02 18:48:06 1.245 +++ loncom/homework/caparesponse/caparesponse.pm 2011/06/08 01:39:32 1.247 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # caparesponse definition # -# $Id: caparesponse.pm,v 1.245 2011/02/02 18:48:06 raeburn Exp $ +# $Id: caparesponse.pm,v 1.247 2011/06/08 01:39:32 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -402,7 +402,7 @@ sub setup_capa_response { sub check_submission { 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 $hideunit= @@ -1136,6 +1136,7 @@ sub start_stringresponse { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; my $id = &Apache::response::start_response($parstack,$safeeval); + undef(%answer); if ($target eq 'meta') { $result=&Apache::response::meta_package_write('stringresponse'); } elsif ($target eq 'edit') {