loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.30 and 1.31

version 1.30, 2001/07/10 22:06:42	version 1.31, 2001/07/13 16:15:01
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','imageresponse','essayresponse'));	&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse'));
}	}

sub start_response {	sub start_response {
Line 96 sub check_for_previous {	Line 96 sub check_for_previous {
return '0';	return '0';
}	}

sub start_numericalresponse {	sub start_caparesponse {
require Apache::caparesponse;	require Apache::caparesponse;
import Apache::caparesponse;	import Apache::caparesponse;
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
return &Apache::caparesponse::start_numericalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);	# print "\n<br />\nsimple caparesponse\n";
	return &Apache::caparesponse::start_caparesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
}	}

sub start_caparesponse {	sub start_stringresponse {
	require Apache::caparesponse;
	import Apache::caparesponse;
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
	}

	sub start_numericalresponse {
require Apache::caparesponse;	require Apache::caparesponse;
import Apache::caparesponse;	import Apache::caparesponse;
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
# print "\n<br />\nsimple caparesponse\n";	return &Apache::caparesponse::start_numericalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
return &Apache::caparesponse::start_caparesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
}	}

sub start_radiobuttonresponse {	sub start_radiobuttonresponse {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.30
changed lines
	Added in v.1.31