--- loncom/misc/refresh_courseids_db.pl	2012/07/21 21:20:25	1.13
+++ loncom/misc/refresh_courseids_db.pl	2013/05/10 15:57:36	1.14
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: refresh_courseids_db.pl,v 1.13 2012/07/21 21:20:25 raeburn Exp $
+# $Id: refresh_courseids_db.pl,v 1.14 2013/05/10 15:57:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -85,6 +85,8 @@ my @ids=&Apache::lonnet::current_machine
 $env{'allowed.bre'} = 'F';
 
 foreach my $dom (@domains) {
+    $env{'user.domain'} = $dom;
+    $env{'user.name'} = &Apache::lonnet::get_domainconfiguser($dom);
     my %courseshash;
     my %currhash = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,\@ids,'.');
     my %lastaccess = &Apache::lonnet::courselastaccess($dom,undef,\@ids);
@@ -101,6 +103,8 @@ foreach my $dom (@domains) {
             }
         }
     }
+    delete($env{'user.name'};
+    delete($env{'user.domain'});
 }
 
 delete($env{'allowed.bre'});