--- loncom/interface/lonuserutils.pm 2020/04/05 20:08:52 1.206 +++ loncom/interface/lonuserutils.pm 2021/08/24 00:15:02 1.209 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utility functions for managing LON-CAPA user accounts # -# $Id: lonuserutils.pm,v 1.206 2020/04/05 20:08:52 raeburn Exp $ +# $Id: lonuserutils.pm,v 1.209 2021/08/24 00:15:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -543,13 +543,15 @@ END case 'krb': alertmsg = '$alert{'krb'}'; break; - case 'loc': case 'int': alertmsg = '$alert{'ipass'}'; break; case 'fsys': alertmsg = '$alert{'ipass'}'; break; + case 'loc': + alertmsg = ''; + break; case 'lti': default: alertmsg = ''; @@ -1709,10 +1711,11 @@ sub my_custom_roles { my %rolehash=&Apache::lonnet::dump('roles',$udom,$uname); foreach my $key (keys(%rolehash)) { if ($key=~/^rolesdef\_(\w+)$/) { + my $role = $1; if ($crstype eq 'Community') { next if ($rolehash{$key} =~ /bre\&S/); } - $returnhash{$1}=$1; + $returnhash{$role}=$role; } } return %returnhash; @@ -5189,7 +5192,11 @@ sub passwdrule_alerts { my %passwdconf = &Apache::lonnet::get_passwdconf($domain); $warning = ''.&mt('Password requirement(s) unmet for one or more users:').'