[BACK]Return to domainprefs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.160.6.73 and 1.160.6.75

version 1.160.6.73, 2016/10/24 04:01:16 version 1.160.6.75, 2016/10/25 12:54:25
Line 216  sub handler { Line 216  sub handler {
                 'serverstatuses','requestcourses','helpsettings',                  'serverstatuses','requestcourses','helpsettings',
                 'coursedefaults','usersessions','loadbalancing',                  'coursedefaults','usersessions','loadbalancing',
                 'requestauthor','selfenrollment','inststatus'],$dom);                  'requestauthor','selfenrollment','inststatus'],$dom);
                 'selfenrollment','inststatus'],$dom);  
     my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',      my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',
                        'autoupdate','autocreate','directorysrch','contacts',                         'autoupdate','autocreate','directorysrch','contacts',
                        'usercreation','selfcreation','usermodification','scantron',                         'usercreation','selfcreation','usermodification','scantron',
Line 10591  sub modify_helpsettings { Line 10590  sub modify_helpsettings {
         $rolename=~s/[^A-Za-z0-9]//gs;          $rolename=~s/[^A-Za-z0-9]//gs;
         if ($rolename ne '') {          if ($rolename ne '') {
             unless(exists($existing{'rolesdef_'.$rolename})) {              unless(exists($existing{'rolesdef_'.$rolename})) {
                 my $errmsg;                  my %newprivs = &Apache::lonuserutils::custom_role_update($rolename,$prefix);
                 my $result = &Apache::lonuserutils::store_custom_role($rolename,$prefix,                  my $result = &Apache::lonnet::definerole($rolename,$newprivs{'s'},$newprivs{'d'},
                                                                       $confname,$dom);                                                           $newprivs{'c'},$confname,$dom);
                 if ($result eq 'ok') {                  if ($result eq 'ok') {
                     $changes{'newcustomrole'} = $rolename;                      $changes{'newcustomrole'} = $rolename;
                 } else {                  } else {
                     $errmsg = ': '.$result;                      $errors .= '<li><span class="LC_error">'.
                                  &mt('An error occurred storing the new custom role: [_1]',
                                      $result).'</span></li>';
                 }                  }
             }              }
         }          }
Removed from v.1.160.6.73  
changed lines
  Added in v.1.160.6.75

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>