loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.205, 2020/02/10 17:12:54	version 1.207, 2020/07/08 14:26:37
Line 1709 sub my_custom_roles {	Line 1709 sub my_custom_roles {
my %rolehash=&Apache::lonnet::dump('roles',$udom,$uname);	my %rolehash=&Apache::lonnet::dump('roles',$udom,$uname);
foreach my $key (keys(%rolehash)) {	foreach my $key (keys(%rolehash)) {
if ($key=~/^rolesdef\_(\w+)$/) {	if ($key=~/^rolesdef\_(\w+)$/) {
	my $role = $1;
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
next if ($rolehash{$key} =~ /bre\&S/);	next if ($rolehash{$key} =~ /bre\&S/);
}	}
$returnhash{$1}=$1;	$returnhash{$role}=$role;
}	}
}	}
return %returnhash;	return %returnhash;
Line 5009 sub upfile_drop_add {	Line 5010 sub upfile_drop_add {
my (%userres,%authres,%roleres,%idres);	my (%userres,%authres,%roleres,%idres);
my $singlesec = '';	my $singlesec = '';
if ($role eq 'st') {	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;	my $sec;
if (ref($userinfo{$i}{'sections'}) eq 'ARRAY') {	if (ref($userinfo{$i}{'sections'}) eq 'ARRAY') {
if (@secs > 0) {	if (@secs > 0) {