loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.181, 2002/07/15 19:45:18
+version 1.182, 2002/07/16 15:02:31
  Line 546  sub inner_xmlparse {
      while ($token = $$pars['-1']->get_token) {
        if (($token->[0] eq 'T') || ($token->[0] eq 'C') || ($token->[0] eq 'D') ) {
  	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') {
  	if ($metamode<1) {