loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.156, 2003/07/28 19:18:02	version 1.157, 2003/07/31 21:00:55
Line 1078 sub end_q {	Line 1078 sub end_q {

#-- <p> tag	#-- <p> tag
sub start_p {	sub start_p {
my ($target,$token) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[4];	$currentstring .= $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring .= '\par ';	my $signal=1;
	foreach my $tag (@$tagstack) {if ($tag eq 'b') {$signal=0;}}
	if ($signal) {$currentstring .= '\par ';}
}	}
return $currentstring;	return $currentstring;
}	}