--- loncom/loncron	2009/02/11 15:19:57	1.78
+++ loncom/loncron	2009/02/11 15:24:28	1.79
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.78 2009/02/11 15:19:57 raeburn Exp $
+# $Id: loncron,v 1.79 2009/02/11 15:24:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,7 @@ use strict;
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
 use Apache::lonnet;
+use Apache::loncommon;
 
 use IO::File;
 use IO::Socket;
@@ -587,8 +588,8 @@ sub log_simplestatus {
 
 sub send_mail {
     print "sending mail\n";
-    my $defdom = $perlvar->{'lonDefDomain'};
-    my $origmail = $perlvar->{'lonAdmEMail'};
+    my $defdom = $perlvar{'lonDefDomain'};
+    my $origmail = $perlvar{'lonAdmEMail'};
     my $emailto = &Apache::loncommon::build_recipient_list(undef,
                                    'lonstatusmail',$defdom,$origmail);
     if ($totalcount>2500) {