loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.103, 2003/05/19 21:40:04	version 1.104, 2003/06/04 15:23:08
Line 494 sub start_stringresponse {	Line 494 sub start_stringresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
if ($target eq 'meta') {	if ($target eq 'meta') {
	&Apache::response::start_response($parstack,$safeeval);
$result=&Apache::response::meta_package_write('stringresponse');	$result=&Apache::response::meta_package_write('stringresponse');
	&Apache::response::end_response();
} else {	} else {
$result.=&start_numericalresponse(@_);	$result.=&start_numericalresponse(@_);
}	}
Line 509 sub start_formularesponse {	Line 511 sub start_formularesponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
if ($target eq 'meta') {	if ($target eq 'meta') {
	&Apache::response::start_response($parstack,$safeeval);
$result=&Apache::response::meta_package_write('formularesponse');	$result=&Apache::response::meta_package_write('formularesponse');
	&Apache::response::end_response();
} else {	} else {
$result.=&start_numericalresponse(@_);	$result.=&start_numericalresponse(@_);
}	}