loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.143, 2007/04/17 23:25:09	version 1.144, 2007/06/26 20:51:53
Line 705 sub end_foil {	Line 705 sub end_foil {

sub start_drawoptionlist {	sub start_drawoptionlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
if (($target ne 'meta') && ($target ne 'answer')) {	if ($target !~ /^(?:meta\|answer\|modified\|edit)$/) {
return $token->[4];	return $token->[4];
}	}
}	}

sub end_drawoptionlist {	sub end_drawoptionlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
if (($target ne 'meta') && ($target ne 'answer')) {	if ($target !~ /^(?:meta\|answer\|modified\|edit)$/) {
return $token->[2];	return $token->[2];
}	}
}	}

sub insert_foil {	sub insert_foil {
return '	return '
<foil name="" value="unused">	<foil name="" value="unused">
<startouttext />	<startouttext />
<endouttext />	<endouttext />
</foil>';	</foil>';
}	}

	sub insert_drawoptionlist {
	return '<drawoptionlist />';
	}
1;	1;
__END__	__END__