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

Diff for /loncom/interface/loncreateuser.pm between versions 1.431 and 1.433

version 1.431, 2017/01/28 02:56:41 version 1.433, 2017/01/28 21:35:49
Line 7207  sub print_helpdeskaccess_display { Line 7207  sub print_helpdeskaccess_display {
     my $confname = $cdom.'-domainconfig';      my $confname = $cdom.'-domainconfig';
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
   
     my @accesstypes = ('all','none');      my @accesstypes = ('all','anydh','anyda','none');
     my ($numstatustypes,@jsarray);      my ($numstatustypes,@jsarray);
     my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($cdom);      my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($cdom);
     if (ref($types) eq 'ARRAY') {      if (ref($types) eq 'ARRAY') {
Line 7218  sub print_helpdeskaccess_display { Line 7218  sub print_helpdeskaccess_display {
         }          }
     }      }
     my %customroles = &get_domain_customroles($cdom,$confname);      my %customroles = &get_domain_customroles($cdom,$confname);
     my %domhelpdesk = &Apache::lonnet::get_active_domroles($cdom,['dh']);      my %domhelpdesk = &Apache::lonnet::get_active_domroles($cdom,['dh','da']);
     if (keys(%domhelpdesk)) {      if (keys(%domhelpdesk)) {
        push(@accesstypes,('inc','exc'));         push(@accesstypes,('inc','exc'));
        push(@jsarray,('notinc','notexc'));         push(@jsarray,('notinc','notexc'));
Line 7416  ENDJS Line 7416  ENDJS
                     'rou'    => 'Role usage',                      'rou'    => 'Role usage',
                     'whi'    => 'Which helpdesk personnel may use this role?',                      'whi'    => 'Which helpdesk personnel may use this role?',
                     'udd'    => 'Use domain default',                      'udd'    => 'Use domain default',
                     'all'    => 'All',                      'all'    => 'All with domain helpdesk or helpdesk assistant role',
                       'anydh'  => 'All with domain helpdesk role',
                       'anyda'  => 'All with domain helpdesk assistant role',
                     'none'   => 'None',                      'none'   => 'None',
                     'status' => 'Determined based on institutional status',                      'status' => 'Determined based on institutional status',
                     'inc'    => 'Include all, but exclude specific personnel',                      'inc'    => 'Include all, but exclude specific personnel',
Line 7603  sub domain_adhoc_access { Line 7605  sub domain_adhoc_access {
             my $access = $domcurrent->{$role}{'access'};              my $access = $domcurrent->{$role}{'access'};
             if (($access eq '') || (!grep(/^\Q$access\E$/,@{$accesstypes}))) {              if (($access eq '') || (!grep(/^\Q$access\E$/,@{$accesstypes}))) {
                 $access = 'all';                  $access = 'all';
                 $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('dh'));                  $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',&Apache::lonnet::plaintext('dh'),
                                                                                             &Apache::lonnet::plaintext('da'));
             } elsif ($access eq 'status') {              } elsif ($access eq 'status') {
                 if (ref($domcurrent->{$role}{$access}) eq 'ARRAY') {                  if (ref($domcurrent->{$role}{$access}) eq 'ARRAY') {
                     my @shown;                      my @shown;
Line 7619  sub domain_adhoc_access { Line 7622  sub domain_adhoc_access {
                     }                      }
                     if (@shown) {                      if (@shown) {
                         my $shownstatus = join(' '.&mt('or').' ',@shown);                          my $shownstatus = join(' '.&mt('or').' ',@shown);
                         $domusage{$role} = &mt('Any user in domain with active [_1] role, and institutional status: [_2]',                          $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role, and institutional status: [_3]',
                                                &Apache::lonnet::plaintext('dh'),$shownstatus);                                                 &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'),$shownstatus);
                     } else {                      } else {
                         $domusage{$role} = &mt('No one in the domain');                          $domusage{$role} = &mt('No one in the domain');
                     }                      }
Line 7634  sub domain_adhoc_access { Line 7637  sub domain_adhoc_access {
                     }                      }
                     my $showninc = join(', ',@dominc);                      my $showninc = join(', ',@dominc);
                     if ($showninc ne '') {                      if ($showninc ne '') {
                         $domusage{$role} = &mt('Include any user in domain with active [_1] role, except: [_2]',                          $domusage{$role} = &mt('Include any user in domain with active [_1] or [_2] role, except: [_3]',
                                                &Apache::lonnet::plaintext('dh'),$showninc);                                                 &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'),$showninc);
                     } else {                      } else {
                         $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('dh'));                          $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',
                                                  &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'));
                     }                      }
                 }                  }
             } elsif ($access eq 'exc') {              } elsif ($access eq 'exc') {
Line 7650  sub domain_adhoc_access { Line 7654  sub domain_adhoc_access {
                 }                  }
                 my $shownexc = join(', ',@domexc);                  my $shownexc = join(', ',@domexc);
                 if ($shownexc ne '') {                  if ($shownexc ne '') {
                     $domusage{$role} = &mt('Only the following in the domain with active [_1] role: [_2]',                      $domusage{$role} = &mt('Only the following in the domain with active [_1] or [_2] role: [_3]',
                                            &Apache::lonnet::plaintext('dh'),$shownexc);                                             &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'),$shownexc);
                 } else {                  } else {
                     $domusage{$role} = &mt('No one in the domain');                      $domusage{$role} = &mt('No one in the domain');
                 }                  }
             } elsif ($access eq 'none') {              } elsif ($access eq 'none') {
                 $domusage{$role} = &mt('No one in the domain');                  $domusage{$role} = &mt('No one in the domain');
             } elsif ($access eq 'all') {              } elsif ($access eq 'anydh') {
                 $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('dh'));                  $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('dh'));
               } elsif ($access eq 'anyda') {
                   $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('da'));
               } elsif ($access eq 'all') {
                   $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',
                                          &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'));
             }              }
         } else {          } else {
             $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('dh'));              $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',
                                      &Apache::lonnet::plaintext('dh'),&Apache::lonnet::plaintext('da'));
         }          }
     }      }
     return %domusage;      return %domusage;
Line 7842  sub update_helpdeskaccess { Line 7852  sub update_helpdeskaccess {
         $r->print('<p class="LC_error">'.&mt('You do not have permission to change helpdesk access.').'</p>');          $r->print('<p class="LC_error">'.&mt('You do not have permission to change helpdesk access.').'</p>');
         return;          return;
     }      }
     my @accesstypes = ('all','none','status','inc','exc');      my @accesstypes = ('all','anydh','anyda','none','status','inc','exc');
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $confname = $cdom.'-domainconfig';      my $confname = $cdom.'-domainconfig';
Line 7852  sub update_helpdeskaccess { Line 7862  sub update_helpdeskaccess {
     my (%settings,%overridden);      my (%settings,%overridden);
     &get_adhocrole_settings($env{'request.course.id'},\@accesstypes,      &get_adhocrole_settings($env{'request.course.id'},\@accesstypes,
                             $types,\%customroles,\%settings,\%overridden);                              $types,\%customroles,\%settings,\%overridden);
     my %domhelpdesk = &Apache::lonnet::get_active_domroles($cdom,['dh']);      my %domhelpdesk = &Apache::lonnet::get_active_domroles($cdom,['dh','da']);
     my (%changed,%storehash,@todelete);      my (%changed,%storehash,@todelete);
   
     if (keys(%customroles)) {      if (keys(%customroles)) {
Line 8093  sub update_helpdeskaccess { Line 8103  sub update_helpdeskaccess {
                         if ($env{'form.'.$role.'_incrs'}) {                          if ($env{'form.'.$role.'_incrs'}) {
                             if ($newsettings{$role}{'access'} eq 'all') {                              if ($newsettings{$role}{'access'} eq 'all') {
                                 $r->print(&mt('All helpdesk staff can access '.lc($crstype).' with this role.'));                                  $r->print(&mt('All helpdesk staff can access '.lc($crstype).' with this role.'));
                               } elsif ($newsettings{$role}{'access'} eq 'anydh') {
                                   $r->print(&mt('Helpdesk staff can use this role if they have an active [_1] role',
                                                 &Apache::lonnet::plaintext('dh')));
                               } elsif ($newsettings{$role}{'access'} eq 'anyda') {
                                   $r->print(&mt('Helpdesk staff can use this role if they have an active [_1] role',
                                                 &Apache::lonnet::plaintext('da')));
                             } elsif ($newsettings{$role}{'access'} eq 'none') {                              } elsif ($newsettings{$role}{'access'} eq 'none') {
                                 $r->print(&mt('No helpdesk staff can access '.lc($crstype).' with this role.'));                                  $r->print(&mt('No helpdesk staff can access '.lc($crstype).' with this role.'));
                             } elsif ($newsettings{$role}{'access'} eq 'status') {                              } elsif ($newsettings{$role}{'access'} eq 'status') {
Removed from v.1.431  
changed lines
  Added in v.1.433

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