loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1051, 2010/02/21 06:21:57
+version 1.1052, 2010/02/25 03:43:27
  Line 6685  sub createcourse {
      }
      return $uname if ($uname =~ /^error/);
  # -------------------------------------------------- Check supplied server name
-     $course_server = $env{'user.homeserver'} if (! defined($course_server));
+     if (!defined($course_server)) {
-     if (! &is_library($course_server)) {
+         if (defined(&domain($udom,'primary'))) {
-         return 'error:bad server name '.$course_server;
+             $course_server = &domain($udom,'primary');
+         } else {
+             $course_server = $env{'user.home'};
+         }
+     }
+     my %host_servers =
+         &Apache::lonnet::get_servers($udom,'library');
+     unless ($host_servers{$course_server}) {
+         return 'error: invalid home server for course: '.$course_server;
      }
  # ------------------------------------------------------------- Make the course
      my $reply=&reply('encrypt:makeuser:'.$udom.':'.$uname.':none::',