loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.172, 2003/09/25 15:52:57	version 1.173, 2003/09/25 16:09:14
Line 1672 sub end_dt {	Line 1672 sub end_dt {
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	$currentstring = $token->[2];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
my $data=&Apache::lonxml::endredirection();	my $data=&item_cleanup;
$data=~s/\\begin{center}//g;
$data=~s/\\end{center}//g;
$currentstring.='\item['.$data.']';	$currentstring.='\item['.$data.']';
}	}
return $currentstring;	return $currentstring;
}	}

	sub item_cleanup {
	my $item=&Apache::lonxml::endredirection();;
	$item=~s/\\begin{center}//g;
	$item=~s/\\end{center}//g;
	return $item;
	}

#-- <dd> tag	#-- <dd> tag
sub start_dd {	sub start_dd {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
Line 1688 sub start_dd {	Line 1693 sub start_dd {
$currentstring = $token->[4];	$currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
if ($$tagstack[-2] eq 'dt') {	if ($$tagstack[-2] eq 'dt') {
$currentstring.='\item['.&Apache::lonxml::endredirection().']';	my $data=&item_cleanup;
	$currentstring.='\item['.$data.']';
}	}
}	}
return $currentstring;	return $currentstring;