--- loncom/interface/loncreateuser.pm	2002/08/07 18:04:35	1.37
+++ 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.37 2002/08/07 18:04:35 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.37 2002/08/07 18:04:35 matthew Exp $
+# $Id: loncreateuser.pm,v 1.39 2002/08/08 19:27:35 matthew Exp $
 ###
 
 package Apache::loncreateuser;
@@ -234,8 +234,6 @@ ENDCHANGEUSER
 <tr>
 END
         foreach ('firstname','middlename','lastname','generation') {
-            my $result = &Apache::lonnet::allowed('mau',$ccdomain);
-            &Apache::lonnet::logthis("allowed: mau, $ccdomain = $result");
            if (&Apache::lonnet::allowed('mau',$ccdomain)) {
               $r->print(<<"END");            
 <td><input type="text" name="c$_" value="$userenv{$_}" size="15"/></td>
@@ -575,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');