loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.138, 2006/03/08 22:21:01	version 1.139, 2006/06/19 16:15:53
Line 32 use Apache::lonlocal;	Line 32 use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse','customresponse'));	&Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse','customresponse','mathresponse'));
}	}

sub start_response {	sub start_response {
Line 434 sub end_customresponse {	Line 434 sub end_customresponse {
return $result;	return $result;
}	}

	sub start_mathresponse {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $result;
	if ($target eq 'meta') {
	&Apache::response::start_response($parstack,$safeeval);
	$result=&Apache::response::meta_package_write('mathresponse');
	&Apache::response::end_response();
	} else {
	# $result.=&start_numericalresponse(@_);
	}
	return $result;
	}

	sub end_mathresponse {
	# return end_numericalresponse(@_);
	}

sub start_answer {	sub start_answer {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result;	my $result;