[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[www]

www		Mon Jul 29 18:17:05 2002 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Email can also contain LaTeX
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.35 loncom/interface/lonmsg.pm:1.36
--- loncom/interface/lonmsg.pm:1.35	Mon Jul 22 10:23:29 2002
+++ loncom/interface/lonmsg.pm	Mon Jul 29 18:17:05 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.35 2002/07/22 14:23:29 bowersj2 Exp $
+# $Id: lonmsg.pm,v 1.36 2002/07/29 22:17:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -50,6 +50,7 @@
 use HTML::TokeParser;
 use Apache::Constants qw(:common);
 use Apache::loncommon;
+use Apache::lontexconvert;
 
 # ===================================================================== Package
 
@@ -316,7 +317,9 @@
         $result.='<hr>From: <b>'.$content{'sendername'}.'@'.
             $content{'senderdomain'}.'</b> ('.$content{'time'}.
             ')<br>Subject: '.$content{'subject'}.
-            '<br><blockquote>'.$content{'message'}.'</blockquote>'.
+            '<br><blockquote>'.
+              &Apache::lontexconvert::msgtexconverted($content{'message'}).
+            '</blockquote>'.
             '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.
             '<input type=submit name="reprec_'.$_.'" '.
                   'value="Confirm Receipt and Reply">';
@@ -555,7 +558,8 @@
              '"><b>Mark Unread</b></a></td>'.
         '<td><a href="/adm/email"><b>Display all Messages</b></a></td>'.
              '</tr></table><p><pre>'.
-             $content{'message'}.'</pre><hr>'.$content{'citation'});
+             &Apache::lontexconvert::msgtexconverted($content{'message'}).
+             '</pre><hr>'.$content{'citation'});
   } elsif ($ENV{'form.replyto'}) {
       &comprep($r,$ENV{'form.replyto'});
   } elsif ($ENV{'form.sendreply'}) {