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.=''; |
} |
} |