[LON-CAPA-cvs] cvs: loncom /interface londropadd.pm /lonnet/perl lonnet.pm

[albertel]

albertel		Tue Aug 26 00:56:30 2003 EDT

  Modified files:              
    /loncom/interface	londropadd.pm 
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - BUG #2097, localauth should not require a password when doing CSV uploads
  
  
  
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.83 loncom/interface/londropadd.pm:1.84
--- loncom/interface/londropadd.pm:1.83	Mon Aug 25 10:31:20 2003
+++ loncom/interface/londropadd.pm	Tue Aug 26 00:56:29 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.83 2003/08/25 14:31:20 www Exp $
+# $Id: londropadd.pm,v 1.84 2003/08/26 04:56:29 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1681,7 +1681,7 @@
                              \$lname,\$gen,\$sec) {
                         $$_ =~ s/(\s+$|^\s+)//g;
                     }
-                    if ($password) {
+                    if ($password || $ENV{'form.login'} eq 'loc') {
                         &modifystudent($domain,$username,$cid,$sec,
                                        $desiredhost);
                         my $reply=&Apache::lonnet::modifystudent
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.405 loncom/lonnet/perl/lonnet.pm:1.406
--- loncom/lonnet/perl/lonnet.pm:1.405	Mon Aug 25 13:20:09 2003
+++ loncom/lonnet/perl/lonnet.pm	Tue Aug 26 00:56:30 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.405 2003/08/25 17:20:09 albertel Exp $
+# $Id: lonnet.pm,v 1.406 2003/08/26 04:56:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2809,7 +2809,8 @@
              ' in domain '.$ENV{'request.role.domain'});
     my $uhome=&homeserver($uname,$udom,'true');
 # ----------------------------------------------------------------- Create User
-    if (($uhome eq 'no_host') && ($umode) && ($upass)) {
+    if (($uhome eq 'no_host') && 
+	(($umode && $upass) || ($umode eq 'localauth'))) {
         my $unhome='';
         if (defined($desiredhome) && $hostdom{$desiredhome} eq $udom) { 
             $unhome = $desiredhome;