--- loncom/loncron 2008/11/04 21:06:21 1.77 +++ loncom/loncron 2009/02/11 15:19:57 1.78 @@ -2,7 +2,7 @@ # Housekeeping program, started by cron, loncontrol and loncron.pl # -# $Id: loncron,v 1.77 2008/11/04 21:06:21 www Exp $ +# $Id: loncron,v 1.78 2009/02/11 15:19:57 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -587,7 +587,10 @@ sub log_simplestatus { sub send_mail { 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) { $emailto.=",$perlvar{'lonSysEMail'}"; }