loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.202, 2002/10/14 20:44:16	version 1.203, 2002/10/17 14:42:07
Line 585 sub latex_special_symbols {	Line 585 sub latex_special_symbols {
$current_token=~s/\^/\\char94 /g;	$current_token=~s/\^/\\char94 /g;
$current_token=~s/\~/\\char126 /g;	$current_token=~s/\~/\\char126 /g;
$current_token=~s/(&[^a-z\#])/\\$1/g;	$current_token=~s/(&[^a-z\#])/\\$1/g;
if ($current_token=~/ \#\w/) {	$current_token=~s/([^&])\#/$1\\#/g;
$current_token=~s/ \#(\w)/ \\#$1/;
} else {
$current_token=~s/([^&])(\#)/$1\\$2/g;
}
$current_token=~s/(\$\|_\|{\|})/\\$1/g;	$current_token=~s/(\$\|_\|{\|})/\\$1/g;
$current_token=~s/\\char92 /\\texttt{\\char92}/g;	$current_token=~s/\\char92 /\\texttt{\\char92}/g;
$current_token=~s/>/\$>\$/g; #more	$current_token=~s/>/\$>\$/g; #more
Line 851 sub setup_globals {	Line 847 sub setup_globals {
my ($request,$target)=@_;	my ($request,$target)=@_;
$Apache::lonxml::request=$request;	$Apache::lonxml::request=$request;
$Apache::lonxml::registered = 0;	$Apache::lonxml::registered = 0;
	if ($ENV{'form.counter'}) {
	$Apache::lonxml::counter=$ENV{'form.counter'}
	} elsif (not defined $Apache::lonxml::counter) {
	$Apache::lonxml::counter=1;
	my %moreenv;
	$moreenv{'form.counter'}=$Apache::lonxml::counter;
	&Apache::lonnet::appenv(%moreenv);
	}
@Apache::lonxml::pwd=();	@Apache::lonxml::pwd=();
@Apache::lonxml::extlinks=();	@Apache::lonxml::extlinks=();
if ($target eq 'meta') {	if ($target eq 'meta') {