loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.381, 2008/02/14 22:37:46	version 1.382, 2008/03/06 20:31:52
Line 1654 sub end_a {	Line 1654 sub end_a {
&Apache::lonxml::get_param('href',$parstack,$safeeval,undef,1);	&Apache::lonxml::get_param('href',$parstack,$safeeval,undef,1);
my $name =	my $name =
&Apache::lonxml::get_param('name',$parstack,$safeeval,undef,1);	&Apache::lonxml::get_param('name',$parstack,$safeeval,undef,1);
if ($href =~ /\S/) {	my $uriprint =
	&Apache::lonxml::get_param('uriprint',$parstack,$safeeval,undef,1);
	my $anchorprint =
	&Apache::lonxml::get_param('anchorprint',$parstack,$safeeval,undef,1);
	if (($href =~ /\S/) && ($uriprint=~/^on\|uriprint\|yes\|1$/i)) {
$href =~ s/([^\\])%/$1\\\%/g;	$href =~ s/([^\\])%/$1\\\%/g;
# Substitute special symbols... and allow line breaks at each /	# Substitute special symbols... and allow line breaks at each /
#	#
$href = &Apache::lonxml::latex_special_symbols($href);	$href = &Apache::lonxml::latex_special_symbols($href);
$href =~ s/\//\/\\-/g; # Map / to /\- to allow hyphenation.	$href =~ s/\//\/\\-/g; # Map / to /\- to allow hyphenation.
$currentstring .= ' ({\tt URI:'.$href.'})';	$currentstring .= ' ({\tt URI:'.$href.'})';
} elsif ($name =~ /\S/) {	} elsif (($name =~ /\S/) && ($anchorprint=~/^on\|anchorprint\|yes\|1$/i)) {
$currentstring .= ' ({\tt Anchor:'.&Apache::lonxml::latex_special_symbols($name).'})';	$currentstring .= ' ({\tt Anchor:'.&Apache::lonxml::latex_special_symbols($name).'})';
} else {	} else {
$currentstring.='';	$currentstring.='';