--- loncom/interface/loncreatecourse.pm	2004/05/11 06:02:58	1.57
+++ loncom/interface/loncreatecourse.pm	2004/06/08 22:09:44	1.58
@@ -1,7 +1,7 @@
-# The LearningOnline Network
+#meserver The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.57 2004/05/11 06:02:58 albertel Exp $
+# $Id: loncreatecourse.pm,v 1.58 2004/06/08 22:09:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -479,6 +479,7 @@ ENDDOCUMENT
 sub create_course {
     my $r=shift;
     my $topurl='/res/'.&Apache::lonnet::declutter($ENV{'form.topmap'});
+    my $this_server = $Apache::lonnet::perlvar{'lonHostID'};
     my $ccuname=$ENV{'form.ccuname'};
     my $ccdomain=$ENV{'form.ccdomain'};
     $ccuname=~s/\W//g;
@@ -627,7 +628,7 @@ ENDENHEAD
     if (@affiliates > 0) {
         my @badclasses = ();
         foreach my $class (@affiliates) {
-            my $addcheck =  &localenroll::new_course($class,$cenv{'internal.courseowner'});
+            my $addcheck = &Apache::lonnet::auto_new_course($crsuhome,$class,$cenv{'internal.courseowner'});
             unless ($addcheck eq 'ok') {
                 push @badclasses, $class; 
             }