loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.376, 2005/06/15 13:06:41	version 1.378, 2005/06/24 21:09:31
Line 397 sub latex_special_symbols {	Line 397 sub latex_special_symbols {
$string=~s/\\\%\|\%/\\\%/g;	$string=~s/\\\%\|\%/\\\%/g;
$string=~s/\\{\|{/\\{/g;	$string=~s/\\{\|{/\\{/g;
$string=~s/\\}\|}/\\}/g;	$string=~s/\\}\|}/\\}/g;
	$string=~s/\\ensuremath\\{\\backslash\\}/\\ensuremath{\\backslash}/g;
$string=~s/\\\$\|\$/\\\$/g;	$string=~s/\\\$\|\$/\\\$/g;
$string=~s/\\\_\|\_/\\\_/g;	$string=~s/\\\_\|\_/\\\_/g;
$string=~s/([^\\]\|^)(\~\|\^)/$1\\$2\\strut /g;	$string=~s/([^\\]\|^)(\~\|\^)/$1\\$2\\strut /g;
Line 1065 sub parstring {	Line 1066 sub parstring {

sub writeallows {	sub writeallows {
unless ($#extlinks>=0) { return; }	unless ($#extlinks>=0) { return; }
my $thisurl = &Apache::lonnet::declutter(shift);	my $thisurl = &Apache::lonnet::clutter(shift);
if ($thisurl =~ /^uploaded/) {
$thisurl = '/'.$thisurl;
} else {
$thisurl='/res/'.$thisurl;
}
if ($env{'httpref.'.$thisurl}) {	if ($env{'httpref.'.$thisurl}) {
$thisurl=$env{'httpref.'.$thisurl};	$thisurl=$env{'httpref.'.$thisurl};
}	}