--- loncom/interface/domainprefs.pm 2016/10/24 22:37:24 1.160.6.74 +++ loncom/interface/domainprefs.pm 2016/10/25 12:54:25 1.160.6.75 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.160.6.74 2016/10/24 22:37:24 raeburn Exp $ +# $Id: domainprefs.pm,v 1.160.6.75 2016/10/25 12:54:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -10590,13 +10590,15 @@ sub modify_helpsettings { $rolename=~s/[^A-Za-z0-9]//gs; if ($rolename ne '') { unless(exists($existing{'rolesdef_'.$rolename})) { - my $errmsg; - my $result = &Apache::lonuserutils::store_custom_role($rolename,$prefix, - $confname,$dom); + my %newprivs = &Apache::lonuserutils::custom_role_update($rolename,$prefix); + my $result = &Apache::lonnet::definerole($rolename,$newprivs{'s'},$newprivs{'d'}, + $newprivs{'c'},$confname,$dom); if ($result eq 'ok') { $changes{'newcustomrole'} = $rolename; } else { - $errmsg = ': '.$result; + $errors .= '