loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.333, 2006/08/16 20:14:24	version 1.334, 2006/08/31 18:45:42
Line 1210 sub start_br {	Line 1210 sub start_br {
#	#
for (my $i=$#tempo;$i>=0;$i--) {	for (my $i=$#tempo;$i>=0;$i--) {
if (($tempo[$i] eq 'b') \|\| ($tempo[$i] eq 'strong') \|\|	if (($tempo[$i] eq 'b') \|\| ($tempo[$i] eq 'strong') \|\|
($tempo[$i] eq 'ol') \|\| ($tempo[$i] eq 'ul') \|\|	($tempo[$i] eq 'ol') \|\| ($tempo[$i] eq 'ul')) {
($tempo[$i] eq 'td') \|\| ($tempo[$i] eq 'th')) {
$signal=1;	$signal=1;
last;	}
	if (($tempo[$i] eq 'td') \|\| ($tempo[$i] eq 'th')) {
	my $colspan =
	&Apache::lonxml::get_param('colspan', $parstack,
	$safeeval, $i, 0);
	if ($colspan) {
	$signal = 2;
	}
}	}
}	}
if ($signal) {	if ($signal eq 1) {
$currentstring .= ' \vskip 0 mm ';	$currentstring .= ' \vskip 0 mm ';
	} elsif ($signal eq '2') {
	# multicol doesn't like blank lines
} elsif ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {	} elsif ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {
$currentstring .= '\strut \\\\ \strut ';	$currentstring .= '\strut \\\\ \strut ';
}	}