version 1.102, 2004/06/02 20:40:07
|
version 1.103, 2004/07/09 21:08:24
|
Line 219 sub sendemail {
|
Line 219 sub sendemail {
|
my $msg = new Mail::Send; |
my $msg = new Mail::Send; |
$msg->to($to); |
$msg->to($to); |
$msg->subject('[LON-CAPA] '.$subject); |
$msg->subject('[LON-CAPA] '.$subject); |
|
my %oldENV=%ENV; |
|
undef(%ENV); |
if (my $fh = $msg->open()) { |
if (my $fh = $msg->open()) { |
print $fh $body; |
print $fh $body; |
$fh->close; |
$fh->close; |
} |
} |
|
%ENV=%oldENV; |
|
undef(%oldENV); |
} |
} |
|
|
# ==================================================== Send notification emails |
# ==================================================== Send notification emails |