--- loncom/enrollment/Autoenroll.pl	2004/11/27 17:23:09	1.12
+++ loncom/enrollment/Autoenroll.pl	2005/04/07 06:56:21	1.13
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #Automated Enrollment script
-# $Id: Autoenroll.pl,v 1.12 2004/11/27 17:23:09 raeburn Exp $
+# $Id: Autoenroll.pl,v 1.13 2005/04/07 06:56:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,7 +48,7 @@
     foreach my $dom (@domains) {
     #only run if configured to
         if (! &localenroll::run($dom)) { next; }
-        $ENV{'user.domain'} = $dom;
+        $env{'user.domain'} = $dom;
     # Determine the courses
         my %courses = &Apache::lonnet::courseiddump($dom,'.',1,'.','.',1,\@hostids); 
         my %affiliates = ();
@@ -136,10 +136,10 @@
                         if ($changecount > 0) {
                             unless ($enrollvar{$crs}{notifylist}  eq '') {
 # Send message about enrollment changes to notifylist.
-# Set $ENV{'user.name'}, $ENV{'user.home'} for use by logging in lonmsg
+# Set $env{'user.name'}, $env{'user.home'} for use by logging in lonmsg
                                 unless ( ($enrollvar{$crs}{'courseowner'} eq '') || (!defined($enrollvar{$crs}{'courseowner'}) )  ) {
-                                    $ENV{'user.name'} = $enrollvar{$crs}{'courseowner'};
-                                    $ENV{'user.home'} = &Apache::lonnet::homeserver($ENV{'user.name'},$dom);
+                                    $env{'user.name'} = $enrollvar{$crs}{'courseowner'};
+                                    $env{'user.home'} = &Apache::lonnet::homeserver($env{'user.name'},$dom);
 
                                     my $subject = "Student enrollment changes in $enrollvar{$crs}{coursecode}";
                                     my $message = "The following $changecount change(s) occurred in $enrollvar{$crs}{description} - $enrollvar{$crs}{coursecode} as a result of the automated classlist update:\n\n".$response;
@@ -158,10 +158,10 @@
                                     }
                                     if ( ($enrollvar{$crs}{notifylist} eq '') && ($newusermsg ne '') ) {
                                         my $subject = "New user accounts in  $enrollvar{$crs}{'coursecode'}";
-                                        my $status =  &Apache::lonmsg::user_normal_msg($ENV{'user.name'},$dom,$subject,$newusermsg);
+                                        my $status =  &Apache::lonmsg::user_normal_msg($env{'user.name'},$dom,$subject,$newusermsg);
                                     }
-                                    delete($ENV{'user.name'});
-                                    delete($ENV{'user.home'});
+                                    delete($env{'user.name'});
+                                    delete($env{'user.home'});
                                 }
                             }
                         }
@@ -181,7 +181,7 @@
         }
         print $fh "-- ".localtime(time)." Enrollment messages end\n*******************\n\n";
         close($fh);
-        delete($ENV{'user.domain'});
+        delete($env{'user.domain'});
 # Check for photos
     }