--- loncom/automation/Autocreate.pl	2005/07/11 20:00:58	1.5
+++ loncom/automation/Autocreate.pl	2007/07/02 03:36:47	1.6
@@ -34,6 +34,7 @@
     use strict;
     use lib '/home/httpd/lib/perl';
     use Apache::lonnet;
+    use Apache::lonlocal;
     use LONCAPA::batchcreatecourse;
     use LONCAPA::Configuration;
 
@@ -60,7 +61,10 @@
         close($fh);
         exit;
     }
-                                                   
+
+    # Initialize language handler
+    &Apache::lonlocal::get_language_handle();
+
     my $batchdir = $$perlvarref{'lonDaemons'}.'/tmp/addcourse/'.$defdom.'/auto';
     opendir(DIR,"$batchdir/pending");
     my @requests = grep(!/^\.\.?$/,readdir(DIR));
@@ -71,6 +75,7 @@
     &set_permissions(\%permissionflags,\@permissions);
     $env{'user.name'} = $dcname;
     $env{'user.domain'} = $dcdom;
+    $env{'request.role.domain'} = $defdom;
     my $wwwid=getpwnam('www');
     if ($wwwid!=$<) {
         my $emailto=$$perlvarref{'lonAdmEMail'};
@@ -128,6 +133,7 @@
     &unset_permissions(\%permissionflags);
     delete($env{'user.name'});
     delete($env{'user.domain'});
+    delete($env{'request.role.domain'});
     print $fh "-- ".localtime(time)." Autocreation messages end\n*******************\n\n";
     close($fh);