loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.350, 2007/01/08 19:09:23
+version 1.351, 2007/01/17 10:09:26
  Line 1559  sub start_a {
  	my $href=&Apache::lonxml::get_param('href',$parstack,$safeeval,
  					    undef,1);
  	$currentstring=&Apache::lonenc::encrypt_ref($token,{'href'=>$href});
-     } elsif ($target eq 'tex') {
- 	my $a=&Apache::lonxml::get_param('href',$parstack,$safeeval,undef,1);
- 	my $b=&Apache::lonxml::get_param('name',$parstack,$safeeval,undef,1);
- 	if ($a=~/\S/) {
- 	    $a=~s/([^\\])%/$1\\\%/g;
- 	    $currentstring .= '\ref{URI: '.$a.'}';
- 	} elsif ($b=~/\S/) {
- 	    $currentstring .= '\ref{Anchor: '.$b.'}';
- 	} else {
- 	    $currentstring.='';
- 	}
      }
      return $currentstring;
  }
- Line 1580  sub end_a {
+ Line 1569  sub end_a {
      if ($target eq 'web' || $target eq 'webgrade') {
  	$currentstring .= $token->[2];
      }
+     if ($target eq 'tex') {
+ 	my $a=&Apache::lonxml::get_param('href',$parstack,$safeeval,undef,1);
+ 	my $b=&Apache::lonxml::get_param('name',$parstack,$safeeval,undef,1);
+ 	if ($a=~/\S/) {
+ 	    $a=~s/([^\\])%/$1\\\%/g;
+ 	    $currentstring .= ' ({\tt URI:'.&Apache::lonxml::latex_special_symbols($a).'})';
+ 	} elsif ($b=~/\S/) {
+ 	    $currentstring .= ' ({\tt Anchor:'.&Apache::lonxml::latex_special_symbols($b).'})';
+ 	} else {
+ 	    $currentstring.='';
+ 	}
+     }
      return $currentstring;
  }