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

albertel lon-capa-cvs@mail.lon-capa.org
Sat, 04 Jun 2005 21:11:32 -0000 

albertel		Sat Jun  4 17:11:32 2005 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  - bug #3715 html editor for COM style messages
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.143 loncom/interface/lonmsg.pm:1.144
--- loncom/interface/lonmsg.pm:1.143	Fri May 20 13:00:40 2005
+++ loncom/interface/lonmsg.pm	Sat Jun  4 17:11:30 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.143 2005/05/20 17:00:40 albertel Exp $
+# $Id: lonmsg.pm,v 1.144 2005/06/04 21:11:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1173,7 +1173,7 @@
 <tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub" />
 </td></tr></table>
 $latexHelp
-<textarea name="message" cols="80" rows="15" wrap="hard">$dismsg
+<textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg
 </textarea></p><br />
 $dispcrit
 $disbase
@@ -1192,7 +1192,7 @@
 Subject: <input type="text" size="50" name="subject" />
 </p>
 <p>General message text<br />
-<textarea name="message" cols="60" rows="10" wrap="hard">$dismsg
+<textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg
 </textarea></p>
 <p>
 The file format for the uploaded portion of the message is:
@@ -1214,7 +1214,8 @@
     if ($broadcast eq 'group') {
        &discourse;
     }
-    $r->print('</form>');
+    $r->print('</form>'.
+	      &Apache::lonhtmlcommon::htmlareaselectactive('message'));
 }
 
 # ---------------------------------------------------- Display all face to face
@@ -1852,7 +1853,8 @@
     my ($r,$title,$baseurl)=@_;
     $r->print(&Apache::lonxml::xmlbegin().
 	      '<head>'.&Apache::lonxml::fontsettings().
-	      '<title>Communication and Messages</title>');
+	      '<title>Communication and Messages</title>'.
+	      &Apache::lonhtmlcommon::htmlareaheaders());
     if ($baseurl) {
 	$r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />");
     }