loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.351, 2007/01/17 10:09:26	version 1.352, 2007/01/18 20:48:02
Line 1570 sub end_a {	Line 1570 sub end_a {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
}	}
if ($target eq 'tex') {	if ($target eq 'tex') {
my $a=&Apache::lonxml::get_param('href',$parstack,$safeeval,undef,1);	my $href =
my $b=&Apache::lonxml::get_param('name',$parstack,$safeeval,undef,1);	&Apache::lonxml::get_param('href',$parstack,$safeeval,undef,1);
if ($a=~/\S/) {	my $name =
$a=~s/([^\\])%/$1\\\%/g;	&Apache::lonxml::get_param('name',$parstack,$safeeval,undef,1);
$currentstring .= ' ({\tt URI:'.&Apache::lonxml::latex_special_symbols($a).'})';	if ($href =~ /\S/) {
} elsif ($b=~/\S/) {	$href =~ s/([^\\])%/$1\\\%/g;
$currentstring .= ' ({\tt Anchor:'.&Apache::lonxml::latex_special_symbols($b).'})';	$currentstring .= ' ({\tt URI:'.&Apache::lonxml::latex_special_symbols($href).'})';
	} elsif ($name =~ /\S/) {
	$currentstring .= ' ({\tt Anchor:'.&Apache::lonxml::latex_special_symbols($name).'})';
} else {	} else {
$currentstring.='';	$currentstring.='';
}	}