--- loncom/automation/Autocreate.pl	2005/03/04 15:09:06	1.1
+++ loncom/automation/Autocreate.pl	2005/04/07 06:56:21	1.2
@@ -67,8 +67,8 @@
     closedir(DIR);
     my %courseids = ();
     my $cccflag = 0;
-    unless ($ENV{'allowed.ccc'}) {
-        $ENV{'allowed.ccc'} = 'F';
+    unless ($env{'allowed.ccc'}) {
+        $env{'allowed.ccc'} = 'F';
         $cccflag = 1;
     }
     my $wwwid=getpwnam('www');
@@ -116,7 +116,7 @@
     }
 
     if ($cccflag) {
-        delete($ENV{'allowed.ccc'});
+        delete($env{'allowed.ccc'});
     }
     print $fh "-- ".localtime(time)." Autocreation messages end\n*******************\n\n";
     close($fh);