loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.180, 2002/07/12 16:37:38	version 1.182, 2002/07/16 15:02:31
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;}
	}
	}
	}
	$result.=$token->[1];
}	}
} elsif ($token->[0] eq 'PI') {	} elsif ($token->[0] eq 'PI') {
if ($metamode<1) {	if ($metamode<1) {