--- loncom/interface/lonuserutils.pm 2020/02/10 17:12:54 1.205 +++ loncom/interface/lonuserutils.pm 2020/04/05 20:08:52 1.206 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utility functions for managing LON-CAPA user accounts # -# $Id: lonuserutils.pm,v 1.205 2020/02/10 17:12:54 raeburn Exp $ +# $Id: lonuserutils.pm,v 1.206 2020/04/05 20:08:52 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5009,6 +5009,16 @@ sub upfile_drop_add { my (%userres,%authres,%roleres,%idres); my $singlesec = ''; if ($role eq 'st') { + if (($context eq 'domain') && ($changeauth eq 'Yes') && (!$newuser)) { + if ((&Apache::lonnet::allowed('mau',$userdomain)) && + (&Apache::lonnet::homeserver($username,$userdomain) ne 'no_host')) { + if ((($amode =~ /^krb4|krb5|internal$/) && $password ne '') || + ($amode eq 'localauth')) { + $authresult = + &Apache::lonnet::modifyuserauth($userdomain,$username,$amode,$password); + } + } + } my $sec; if (ref($userinfo{$i}{'sections'}) eq 'ARRAY') { if (@secs > 0) {