--- loncom/xml/lonxml.pm 2002/07/15 19:45:18 1.181 +++ loncom/xml/lonxml.pm 2002/07/29 22:06:38 1.186 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.181 2002/07/15 19:45:18 www Exp $ +# $Id: lonxml.pm,v 1.186 2002/07/29 22:06:38 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -176,6 +176,7 @@ sub xmlend { unless (($hidden) && (!$seeid)) { my $message=$contrib{$idx.':message'}; $message=~s/\n/\
/g; + $message=&Apache::lontexconvert::msgtexconverted($message); if ($message) { if ($hidden) { $message=''.$message.''; @@ -384,7 +385,7 @@ ENDPARM menu.switchbutton (8,1,'eval.gif','evaluate','this','gopost("/adm/evaluate",currentURL)'); menu.switchbutton - (8,2,'fdbk.gif','feedback','on this','gopost("/adm/feedback",currentURL)'); + (8,2,'fdbk.gif','feedback','discuss','gopost("/adm/feedback",currentURL)'); menu.switchbutton (8,3,'prt.gif','prepare','printout','gopost("/adm/printout",currentURL)'); menu.switchbutton @@ -546,7 +547,19 @@ 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;} + } + if ($token->[1]=~m/>/) {$token->[1]=~s/>/\$>\$/g;} + if ($token->[1]=~m/[1]=~s/[1]; } } elsif ($token->[0] eq 'PI') { if ($metamode<1) {