--- loncom/interface/loncreateuser.pm	2002/08/07 18:49:36	1.38
+++ loncom/interface/loncreateuser.pm	2002/08/08 19:27:35	1.39
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.38 2002/08/07 18:49:36 matthew Exp $
+# $Id: loncreateuser.pm,v 1.39 2002/08/08 19:27:35 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,7 +47,7 @@
 # 11/12,11/13,11/15 Scott Harrison
 # 02/11/02 Matthew Hall
 #
-# $Id: loncreateuser.pm,v 1.38 2002/08/07 18:49:36 matthew Exp $
+# $Id: loncreateuser.pm,v 1.39 2002/08/08 19:27:35 matthew Exp $
 ###
 
 package Apache::loncreateuser;
@@ -573,7 +573,7 @@ ENDNEWUSERHEAD
         if (lc($desiredhost) eq 'default') {
             $desiredhost = undef;
         } else {
-            my %home_servers = &Apache::loncommon::get_home_servers
+            my %home_servers = &Apache::loncommon::get_library_servers
                 ($ENV{'form.ccdomain'});  
             if (! exists($home_servers{$desiredhost})) {
                 $r->print($error.'Invalid home server specified');