--- loncom/enrollment/Autoupdate.pl	2010/03/21 21:06:00	1.16
+++ loncom/enrollment/Autoupdate.pl	2010/03/25 04:36:02	1.18
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 # Automated Userinfo update script
-# $Id: Autoupdate.pl,v 1.16 2010/03/21 21:06:00 raeburn Exp $
+# $Id: Autoupdate.pl,v 1.18 2010/03/25 04:36:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,7 +61,7 @@
         }
         next if (!$run_update);
         open(my $fh,">>$logfile");
-        print $fh ("********************\n".localtime(time).' '.&mt('Autoupdate messages start for domain: [_1]',$dom).' --'."\n");
+        print $fh ("********************\n".&Apache::lonlocal::locallocaltime(time).' '.&mt('Autoupdate messages start for domain: [_1]',$dom).' --'."\n");
         # get courseIDs for domain
         my %courses=&Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,[$hostid],'.');
         # get user information
@@ -73,7 +73,7 @@
         my @cdoms = ($dom);
         my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom;
         &descend_tree($dir,0,\%users);
-        foreach my $uname (keys(%users)) {
+        foreach my $uname (sort(keys(%users))) {
             next if ($courses{$dom.'_'.$uname});
             my %userhash = &Apache::lonnet::userenvironment($dom,$uname,@info);
             my (@inststatuses);