loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsg.pm between versions 1.121 and 1.123

version 1.121, 2004/11/17 21:31:37	version 1.123, 2004/12/11 16:31:59
Line 697 sub discrit {	Line 697 sub discrit {
foreach (sort keys %what) {	foreach (sort keys %what) {
my %content=&unpackagemsg($what{$_});	my %content=&unpackagemsg($what{$_});
next if ($content{'senderdomain'} eq '');	next if ($content{'senderdomain'} eq '');
$content{'message'}=~s/\n/\<br\>/g;
$result.='<hr />'.&mt('From').': <b>'.	$result.='<hr />'.&mt('From').': <b>'.
&Apache::loncommon::aboutmewrapper(	&Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.	&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('.
Line 1912 sub sendoffmail {	Line 1911 sub sendoffmail {

foreach (keys %toaddr) {	foreach (keys %toaddr) {
my ($recuname,$recdomain)=split(/\:/,$_);	my ($recuname,$recdomain)=split(/\:/,$_);
my $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'});	my $msgtxt;
	if ((($ENV{'form.critmsg'}) \|\| ($ENV{'form.sendbck'})) &&
	(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
	$msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'},1);
	} else {
	$msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'});
	}
if ($toaddr{$_}) { $msgtxt.='<hr />'.$toaddr{$_}; }	if ($toaddr{$_}) { $msgtxt.='<hr />'.$toaddr{$_}; }
my $thismsg;	my $thismsg;
if ((($ENV{'form.critmsg'}) \|\| ($ENV{'form.sendbck'})) &&	if ((($ENV{'form.critmsg'}) \|\| ($ENV{'form.sendbck'})) &&

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.121
changed lines
	Added in v.1.123