loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.57, 2002/01/17 12:23:31	version 1.58, 2002/01/30 17:33:15
Line 33 package Apache::response;	Line 33 package Apache::response;
use strict;	use strict;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','parameter','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));	&Apache::lonxml::register('Apache::response',('responseparam','parameter','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse','externalresponse'));
}	}

sub start_response {	sub start_response {
Line 262 sub start_essayresponse {	Line 262 sub start_essayresponse {
return &Apache::essayresponse::start_essayresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);	return &Apache::essayresponse::start_essayresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
}	}

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

sub view_or_modify {	sub view_or_modify {
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
my $myself=0;	my $myself=0;