--- loncom/lonnet/perl/lonnet.pm	2000/12/29 21:52:19	1.84
+++ loncom/lonnet/perl/lonnet.pm	2001/01/06 16:08:24	1.88
@@ -82,6 +82,8 @@
 # 10/30,10/31,
 # 11/2,11/14,11/15,11/16,11/20,11/21,11/22,11/25,11/27,
 # 12/02,12/12,12/13,12/14,12/28,12/29 Gerd Kortemeyer
+# 05/01/01 Guy Albertelli
+# 05/01,06/01 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -95,6 +97,7 @@ use IO::Socket;
 use GDBM_File;
 use Apache::Constants qw(:common :http);
 use HTML::TokeParser;
+use Fcntl qw(:flock);
 
 # --------------------------------------------------------------------- Logging
 
@@ -258,9 +261,11 @@ sub appenv {
 	return 'error';
      }
      my $newname;
+     flock($fh,LOCK_EX);
      foreach $newname (keys %newenv) {
 	 print $fh "$newname=$newenv{$newname}\n";
      }
+     $fh->close();
     }
     return 'ok';
 }
@@ -287,9 +292,11 @@ sub delenv {
      unless ($fh=Apache::File->new(">$ENV{'user.environment'}")) {
 	return 'error';
      }
+     flock($fh,LOCK_EX);
      map {
 	 unless ($_=~/^$delthis/) { print $fh $_; }
      } @oldenv;
+     $fh->close();
     }
     return 'ok';
 }
@@ -1325,9 +1332,6 @@ sub createcourse {
     my ($udom,$description,$url)=@_;
     $url=&declutter($url);
     my $cid='';
-    unless ($cid=$ENV{'request.course.id'}) {
-	return 'not_in_class';
-    }
     unless (&allowed('ccc',$ENV{'user.domain'})) {
         return 'refused';
     }