loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.228, 2010/10/28 16:20:50	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 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;
	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)) {