loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.30, 2003/06/09 22:31:56	version 1.31.2.1, 2003/09/23 01:52:57
Line 110 sub displayfoils {	Line 110 sub displayfoils {
if ($target eq 'tex') {$result.="\\vskip 0 mm \n";} else {$result.="<br />\n";}	if ($target eq 'tex') {$result.="\\vskip 0 mm \n";} else {$result.="<br />\n";}
my $image=$Apache::response::foilgroup{"$name.image"};	my $image=$Apache::response::foilgroup{"$name.image"};
&Apache::lonxml::debug("image is $image");	&Apache::lonxml::debug("image is $image");
if ($Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"} =~ /^correct/ ) {	if ( &Apache::response::show_answer() ) {
if ($target eq 'tex') {	if ($target eq 'tex') {
$result.=$Apache::response::foilgroup{"$name.image"}."\\vskip 0 mm \n";	$result.=$Apache::response::foilgroup{"$name.image"}."\\vskip 0 mm \n";
} else {	} else {
Line 218 sub end_conceptgroup {	Line 218 sub end_conceptgroup {
return $result;	return $result;
}	}

	sub insert_foil {
	return '
	<foil>
	<image></image>
	<text></text>
	<rectangle></rectangle>
	</foil>
	';
	}

$Apache::imageresponse::curname='';	$Apache::imageresponse::curname='';
sub start_foil {	sub start_foil {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;