loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.20, 2001/01/22 19:58:09	version 1.21, 2001/02/07 00:29:59
Line 7 package Apache::response;	Line 7 package Apache::response;
use strict;	use strict;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse','optionresponse'));	&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse','optionresponse','imageresponse'));
}	}

sub start_response {	sub start_response {
Line 117 sub start_optionresponse {	Line 117 sub start_optionresponse {
return "";	return "";
}	}

	sub start_imageresponse {
	require Apache::imageresponse;
	import Apache::imageresponse;
	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	Apache::imageresponse::start_imageresponse($target,$token,$parstack,$parser,$safeeval,$style);;
	return "";
	}

sub start_responseparam {	sub start_responseparam {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
if ($target eq 'grade' \|\| $target eq 'web') {	if ($target eq 'grade' \|\| $target eq 'web') {