--- loncom/lonnet/perl/lonnet.pm	2003/03/31 20:31:39	1.357
+++ loncom/lonnet/perl/lonnet.pm	2003/03/31 20:53:39	1.358
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.357 2003/03/31 20:31:39 www Exp $
+# $Id: lonnet.pm,v 1.358 2003/03/31 20:53:39 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2844,6 +2844,11 @@ sub createcourse {
 	return 'error: no such course';
     }
 # ----------------------------------------------------------------- Course made
+# log existance
+    &courseidput($udom,&escape($udom.'_'.$uname).'='.&escape($description),
+                 $uhome);
+    &flushcourselogs();
+# set toplevel url
     my $topurl=$url;
     unless ($nonstandard) {
 # ------------------------------------------ For standard courses, make top url