--- loncom/auth/lonroles.pm 2023/12/30 00:07:09 1.269.2.39.2.8 +++ loncom/auth/lonroles.pm 2024/02/27 16:52:46 1.269.2.39.2.9 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.269.2.39.2.8 2023/12/30 00:07:09 raeburn Exp $ +# $Id: lonroles.pm,v 1.269.2.39.2.9 2024/02/27 16:52:46 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2600,6 +2600,22 @@ sub update_session_roles { } } else { $newrole{$rolekey} = $status_in_db; + if ($role eq 'au') { + my %userenv = + &Apache::lonnet::userenvironment($env{'user.domain'}, + $env{'user.name'},'authoreditors'); + if ($userenv{'authoreditors'}) { + $userenv{'editors'} = $userenv{'authoreditors'}; + } else { + my %domdef = &Apache::lonnet::get_domain_defaults($env{'user.domain'}); + if ($domdef{'editors'} ne '') { + $userenv{'editors'} = $domdef{'editors'}; + } else { + $userenv{'editors'} = 'edit,xml'; + } + } + &Apache::lonnet::appenv(\%userenv); + } } } }