version 1.77, 2008/11/04 21:06:21
|
version 1.78, 2009/02/11 15:19:57
|
Line 587 sub log_simplestatus {
|
Line 587 sub log_simplestatus {
|
|
|
sub send_mail { |
sub send_mail { |
print "sending mail\n"; |
print "sending mail\n"; |
my $emailto="$perlvar{'lonAdmEMail'}"; |
my $defdom = $perlvar->{'lonDefDomain'}; |
|
my $origmail = $perlvar->{'lonAdmEMail'}; |
|
my $emailto = &Apache::loncommon::build_recipient_list(undef, |
|
'lonstatusmail',$defdom,$origmail); |
if ($totalcount>2500) { |
if ($totalcount>2500) { |
$emailto.=",$perlvar{'lonSysEMail'}"; |
$emailto.=",$perlvar{'lonSysEMail'}"; |
} |
} |