[LON-CAPA-cvs] cvs: loncom /interface loncreateuser.pm

[matthew]

matthew		Mon Apr 29 10:32:11 2002 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  Fixed bug which prevented modification of user roles without also modifying
  user authentication.
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.33 loncom/interface/loncreateuser.pm:1.34
--- loncom/interface/loncreateuser.pm:1.33	Tue Apr 23 17:05:45 2002
+++ loncom/interface/loncreateuser.pm	Mon Apr 29 10:32:11 2002
@@ -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 @@
 	$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 @@
                                                $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>