loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.121, 2004/11/17 21:31:37	version 1.122, 2004/12/11 14:09:46
Line 1912 sub sendoffmail {	Line 1912 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'})) &&