loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.180 and 1.183

version 1.180, 2002/07/12 16:37:38	version 1.183, 2002/07/23 14:17:45
Line 346 sub registerurl {	Line 346 sub registerurl {
$Apache::lonxml::registered=1;	$Apache::lonxml::registered=1;
my $nothing='';	my $nothing='';
if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }	if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }
my $timesync='menu.clock.setTime(1000*'.time.');';	my $timesync='menu.syncclock(1000*'.time.');';
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {	if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) \|\| ($forcereg)) {
my $hwkadd='';	my $hwkadd='';
if ($ENV{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($ENV{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
Line 546 sub inner_xmlparse {	Line 546 sub inner_xmlparse {
while ($token = $$pars['-1']->get_token) {	while ($token = $$pars['-1']->get_token) {
if (($token->[0] eq 'T') \|\| ($token->[0] eq 'C') \|\| ($token->[0] eq 'D') ) {	if (($token->[0] eq 'T') \|\| ($token->[0] eq 'C') \|\| ($token->[0] eq 'D') ) {
if ($metamode<1) {	if ($metamode<1) {
$result=$token->[1];	if ($target eq 'tex') {
	my @temp_array = @$stack;
	if ($temp_array[-1] ne 'm') {
	if ($temp_array[-1] ne 'tt') {
	if ($token->[1]=~m/\^/) {$token->[1]=~s/\^/\\verb\|\^\|/g;}
	} else {
	if ($token->[1]=~m/\^/) {$token->[1]=~s/\^/}\\verb\|\^\|{/g;}
	}
	if ($token->[1]=~m/>/) {$token->[1]=~s/>/\$>\$/g;}
	if ($token->[1]=~m/</) {$token->[1]=~s/</\$<\$/g;}
	}
	}
	$result.=$token->[1];
}	}
} elsif ($token->[0] eq 'PI') {	} elsif ($token->[0] eq 'PI') {
if ($metamode<1) {	if ($metamode<1) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.180
changed lines
	Added in v.1.183