--- loncom/loncron	2013/02/02 00:22:30	1.96
+++ loncom/loncron	2013/02/02 14:42:01	1.97
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.96 2013/02/02 00:22:30 raeburn Exp $
+# $Id: loncron,v 1.97 2013/02/02 14:42:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -752,16 +752,15 @@ sub write_serverhomeIDs {
 }
 
 sub write_checksums {
-    my ($perlvar) = @_;
-    return unless (ref($perlvar) eq 'HASH');
-    my $distro = &get_distro($perlvar->{'lonDaemons'});
+    my $distro = &get_distro($perlvar{'lonDaemons'});
     if ($distro) {
         print "Retrieving file version and checksumming.\n";
+        my $numchksums = 0;
         my ($chksumsref,$versionsref) =
-            &LONCAPA::Checksumming::get_checksums($distro,$perlvar->{'lonDaemons'},
-                                                  $perlvar->{'lonLib'},
-                                                  $perlvar->{'lonIncludes'},
-                                                  $perlvar->{'lonTabDir'});
+            &LONCAPA::Checksumming::get_checksums($distro,$perlvar{'lonDaemons'},
+                                                  $perlvar{'lonLib'},
+                                                  $perlvar{'lonIncludes'},
+                                                  $perlvar{'lonTabDir'});
         if (ref($chksumsref) eq 'HASH') {
             $numchksums = scalar(keys(%{$chksumsref}));
         }
@@ -769,7 +768,7 @@ sub write_checksums {
     } else {
         print "File version retrieval and checksumming skipped - could not determine Linux distro.\n"; 
     }
-    return'
+    return;
 }
 
 sub send_mail {
@@ -937,7 +936,7 @@ sub main () {
 	&log_simplestatus();
         &write_loncaparevs();
         &write_serverhomeIDs();
-	&write_checksums(\%perlvar);
+	&write_checksums();
 	if ($totalcount>200 && !$noemail) { &send_mail(); }
     }
 }