--- loncom/xml/lonxml.pm 2002/07/15 19:45:18 1.181
+++ loncom/xml/lonxml.pm 2002/08/07 13:58:38 1.187
@@ -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.187 2002/08/07 13:58:38 matthew 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.'';
@@ -332,7 +333,8 @@ sub registerurl {
my $target = shift;
my $result = '';
if ($target eq 'edit') {
- $result .="\n";
}
@@ -384,7 +386,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 +548,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/) {$token->[1]=~s/\$<\$/g;}
+ }
+ }
+ $result.=$token->[1];
}
} elsif ($token->[0] eq 'PI') {
if ($metamode<1) {