loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.115, 2004/07/20 13:38:47	version 1.117, 2004/07/30 18:45:49
Line 456 sub optionlist_correction {	Line 456 sub optionlist_correction {
$texoptionlist.=', ';	$texoptionlist.=', ';
}	}
}	}
chop($texoptionlist);	$texoptionlist=~s/, $//;
if ($TeXlayout ne 'vertical') {$texoptionlist.='.';}	if ($TeXlayout ne 'vertical') {$texoptionlist.='.';}
} else {	} else {
if ($TeXlayout ne 'vertical') {$texoptionlist='\\item [] \\vskip -5 mm';}	if ($TeXlayout ne 'vertical') {$texoptionlist='\\item [] \\vskip -5 mm';}
Line 649 sub end_foil {	Line 649 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)=@_;
return $token->[4];	if ($target ne 'meta') {
	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)=@_;
return $token->[2];	if ($target ne 'meta') {
	return $token->[2];
	}
}	}

sub insert_foil {	sub insert_foil {