[LON-CAPA-cvs] cvs: loncom /misc refresh_courseids_db.pl

[raeburn]

raeburn		Fri May 10 15:57:36 2013 EDT

  Modified files:              
    /loncom/misc	refresh_courseids_db.pl 
  Log:
  - Provide username:domain for domain config user so lonuserstate.pm can 
    construct appropriately named .db files in /home/httpd/perl/tmp.
  
  
Index: loncom/misc/refresh_courseids_db.pl
diff -u loncom/misc/refresh_courseids_db.pl:1.13 loncom/misc/refresh_courseids_db.pl:1.14
--- loncom/misc/refresh_courseids_db.pl:1.13	Sat Jul 21 21:20:25 2012
+++ loncom/misc/refresh_courseids_db.pl	Fri May 10 15:57:36 2013
@@ -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 @@
 $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 @@
             }
         }
     }
+    delete($env{'user.name'};
+    delete($env{'user.domain'});
 }
 
 delete($env{'allowed.bre'});