loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.146, 2003/06/27 16:12:39	version 1.147, 2003/06/30 14:09:03
Line 1614 sub end_dt {	Line 1614 sub end_dt {

#-- <dd> tag	#-- <dd> tag
sub start_dd {	sub start_dd {
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') {
	if ($$tagstack[-2] eq 'dl') {
	$currentstring = ' \item [] ';
	}
}	}
return $currentstring;	return $currentstring;
}	}
Line 1824 sub end_td {	Line 1828 sub end_td {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $current_row = $Apache::londefdef::table[-1]{'row_number'};	my $current_row = $Apache::londefdef::table[-1]{'row_number'};
my $data=&Apache::lonxml::endredirection();	my $data=&Apache::lonxml::endredirection();

$currentstring.=' SSSS '.$data.' FFFF ';

my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);	my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
if (defined $TeXwidth) {	if (defined $TeXwidth) {
my $current_length=&recalc($TeXwidth);	my $current_length=&recalc($TeXwidth);