|
version 1.184.4.7, 2019/09/11 14:39:44
|
version 1.184.4.9, 2020/05/02 20:34:53
|
|
Line 3661 END
|
Line 3661 END
|
| setSections(formname,'$crstype'); |
setSections(formname,'$crstype'); |
| if (seccheck == 'ok') { |
if (seccheck == 'ok') { |
| opener.document.$callingform.newsecs.value = formname.sections.value; |
opener.document.$callingform.newsecs.value = formname.sections.value; |
| |
} else { |
| |
return; |
| } |
} |
| END |
END |
| } else { |
} else { |
|
Line 4933 sub upfile_drop_add {
|
Line 4935 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) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserutils.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface