--- loncom/lonnet/perl/lonnet.pm	2000/12/29 21:52:19	1.84
+++ loncom/lonnet/perl/lonnet.pm	2001/01/05 20:06:07	1.86
@@ -258,9 +258,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';
 }
@@ -1325,9 +1327,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';
     }