--- loncom/interface/loncreateuser.pm	2002/04/23 21:05:45	1.33
+++ loncom/interface/loncreateuser.pm	2002/04/29 14:32:11	1.34
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.33 2002/04/23 21:05:45 matthew Exp $
+# $Id: loncreateuser.pm,v 1.34 2002/04/29 14:32:11 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.33 2002/04/23 21:05:45 matthew Exp $
+# $Id: loncreateuser.pm,v 1.34 2002/04/29 14:32:11 matthew Exp $
 ###
 
 package Apache::loncreateuser;
@@ -532,6 +532,9 @@ ENDTHREEHEAD
 	$amode='localauth';
 	$genpwd=$ENV{'form.locarg'};
 	$genpwd=" " if (!$genpwd);
+    } elsif (($ENV{'form.login'} eq 'nochange')) { 
+        # There is no need to tell the user we did not change what they
+        # did not ask us to change.
     } else {
 	    $r->print($error.'Invalid login mode or password'.$end);    
 	    return;
@@ -571,7 +574,7 @@ ENDNEWUSERHEAD
                                                $ENV{'form.ccdomain'});
         $r->print('<br>Home server: '.$home.' '.
                   $Apache::lonnet::libserv{$home});
-    } elsif ($ENV{'form.login'} ne '') {
+    } elsif ($ENV{'form.login'} ne 'nochange') {
 	# Modify user privileges
 	$r->print(<<ENDMODIFYUSERHEAD);
 <h1>Change User Privileges</h1>