loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.226, 2010/05/29 22:39:52	version 1.230, 2010/11/10 14:44:50
Line 465 sub sendemail {	Line 465 sub sendemail {
if ($senderaddress) {	if ($senderaddress) {
$msg->add('From',$senderaddress);	$msg->add('From',$senderaddress);
}	}
	$msg->add('Content-type','text/plain; charset=UTF-8');
if (my $fh = $msg->open()) {	if (my $fh = $msg->open()) {
print $fh $body;	print $fh $body;
$fh->close;	$fh->close;
Line 548 to access the full message.',$url);	Line 549 to access the full message.',$url);
} else {	} else {
my $sendtext;	my $sendtext;
if (!grep/^\Q$addr\E/,@htmlexcerpt) {	if (!grep/^\Q$addr\E/,@htmlexcerpt) {
$sendtext = &htmlfree;	$sendtext = $htmlfree;
} else {	} else {
$sendtext = $text;	$sendtext = $text;
}	}
Line 985 sub secapply {	Line 986 sub secapply {
my $rec=shift;	my $rec=shift;
my $defaultflag=shift;	my $defaultflag=shift;
$rec=~s/\s+//g;	$rec=~s/\s+//g;
$rec=~s/\@/\:/g;	unless ($rec =~ /\:/) {
	$rec=~s/\@/\:/g;
	}
my ($adr,$sections_or_groups)=($rec=~/^([^$]+)\(([^$]+)\)/);	my ($adr,$sections_or_groups)=($rec=~/^([^$]+)\(([^$]+)\)/);
if ($sections_or_groups) {	if ($sections_or_groups) {
foreach my $item (split(/\;/,$sections_or_groups)) {	foreach my $item (split(/\;/,$sections_or_groups)) {