loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.266, 2003/07/08 14:49:30	version 1.267, 2003/08/04 14:30:34
Line 492 sub latex_special_symbols {	Line 492 sub latex_special_symbols {
$current_token=~s/(>\|<)/\$$1\$/g; #more or less	$current_token=~s/(>\|<)/\$$1\$/g; #more or less
if ($current_token=~m/\d%/) {$current_token =~ s/(\d)%/$1\\%/g;} #percent after digit	if ($current_token=~m/\d%/) {$current_token =~ s/(\d)%/$1\\%/g;} #percent after digit
if ($current_token=~m/\s%/) {$current_token =~ s/(\s)%/$1\\%/g;} #persent after space	if ($current_token=~m/\s%/) {$current_token =~ s/(\s)%/$1\\%/g;} #persent after space
	if ($current_token eq '%.') {$current_token = '\%.';} #persent at the end of statement
}	}
return $current_token;	return $current_token;
}	}
Line 1049 sub parstring {	Line 1050 sub parstring {
my $val=$token->[2]->{$_};	my $val=$token->[2]->{$_};
$val =~ s/([\%\@\\\"\'])/\\$1/g;	$val =~ s/([\%\@\\\"\'])/\\$1/g;
#if ($val =~ m/^[\%\@]/) { $val="\\".$val; }	#if ($val =~ m/^[\%\@]/) { $val="\\".$val; }
$temp .= "my \$$_=\"$val\";"	$temp .= "my \$$_=\"$val\";";
}	}
}	}
return $temp;	return $temp;