[LON-CAPA-cvs] cvs: loncom / loncron

[raeburn]

raeburn		Wed Feb 11 15:24:28 2009 EDT

  Modified files:              
    /loncom	loncron 
  Log:
  Bug 5903. perlvar is a hash, not a hashref here.
  
  
Index: loncom/loncron
diff -u loncom/loncron:1.78 loncom/loncron:1.79
--- loncom/loncron:1.78	Wed Feb 11 15:19:57 2009
+++ loncom/loncron	Wed Feb 11 15:24:28 2009
@@ -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 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 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) {