loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.287, 2003/10/24 21:31:05	version 1.290, 2003/10/30 20:22:00
Line 395 sub latex_special_symbols {	Line 395 sub latex_special_symbols {
$string =~ s/_/ /g;	$string =~ s/_/ /g;
} else {	} else {
$string=~s/\\ /\\char92 /g;	$string=~s/\\ /\\char92 /g;
$string=~s/\^/\\char94 /g;	$string=~s/\^/\\\^ /g;
$string=~s/\~/\\char126 /g;	$string=~s/\~/\\char126 /g;
$string=~s/(&[^A-Za-z\#])/\\$1/g;	$string=~s/(&[^A-Za-z\#])/\\$1/g;
$string=~s/([^&])\#/$1\\#/g;	$string=~s/([^&])\#/$1\\#/g;
Line 1060 ENDSCRIPT	Line 1060 ENDSCRIPT

sub storefile {	sub storefile {
my ($file,$contents)=@_;	my ($file,$contents)=@_;
	&Apache::lonnet::correct_line_ends(\$contents);
if (my $fh=Apache::File->new('>'.$file)) {	if (my $fh=Apache::File->new('>'.$file)) {
print $fh $contents;	print $fh $contents;
$fh->close();	$fh->close();