[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm
jms
jms@source.lon-capa.org
Tue, 02 Mar 2010 15:10:47 -0000
jms Tue Mar 2 15:10:47 2010 EDT
Modified files:
/loncom/interface lonmsg.pm
Log:
Fixed bug #6233, non-breaking page space tags stripped from outgoing external messages.
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.224 loncom/interface/lonmsg.pm:1.225
--- loncom/interface/lonmsg.pm:1.224 Tue Mar 31 21:04:12 2009
+++ loncom/interface/lonmsg.pm Tue Mar 2 15:10:47 2010
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.224 2009/03/31 21:04:12 kaisler Exp $
+# $Id: lonmsg.pm,v 1.225 2010/03/02 15:10:47 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -453,6 +453,9 @@
"*** ".&mt_user($user_lh,'This is an automatic e-mail generated by the LON-CAPA system.')."\n".
"*** ".($senderaddress?&mt_user($user_lh,'You can reply to this e-mail'):&mt_user($user_lh,'Please do not reply to this address.')."\n*** ".
&mt_user($user_lh,'A reply will not be received by the recipient!'))."\n\n".$body;
+
+ $body =~ s/ / /g;
+
my $msg = new Mail::Send;
$msg->to($to);
$msg->subject('[LON-CAPA] '.$subject);