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

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

version 1.433, 2017/01/28 21:35:49 version 1.436, 2017/03/26 22:11:54
Line 755  sub print_username_entry_form { Line 755  sub print_username_entry_form {
         }          }
     } else {      } else {
         my $actiontext = $lt{'srad'};          my $actiontext = $lt{'srad'};
           my $fixeddom;
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             if ($crstype eq 'Community') {              if ($crstype eq 'Community') {
                 $actiontext = $lt{'srme'};                  $actiontext = $lt{'srme'};
Line 763  sub print_username_entry_form { Line 764  sub print_username_entry_form {
             }              }
         } elsif ($env{'form.action'} eq 'accesslogs') {          } elsif ($env{'form.action'} eq 'accesslogs') {
             $actiontext = $lt{'srva'};              $actiontext = $lt{'srva'};
               $fixeddom = 1;
         } elsif (($env{'form.action'} eq 'singleuser') &&          } elsif (($env{'form.action'} eq 'singleuser') &&
                  ($context eq 'domain') && (!&Apache::lonnet::allowed('mau',$defdom))) {                   ($context eq 'domain') && (!&Apache::lonnet::allowed('mau',$defdom))) {
             $actiontext = $lt{'srvu'};              $actiontext = $lt{'srvu'};
Line 774  sub print_username_entry_form { Line 776  sub print_username_entry_form {
                          '<br clear="all" />');                           '<br clear="all" />');
             }              }
         }          }
         $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype,1));          $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype,$fixeddom));
     }      }
 }  }
   
Line 7207  sub print_helpdeskaccess_display { Line 7209  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','anydh','anyda','none');      my @accesstypes = ('all','dh','da','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 7417  ENDJS Line 7419  ENDJS
                     '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 with domain helpdesk or helpdesk assistant role',                      'all'    => 'All with domain helpdesk or helpdesk assistant role',
                     'anydh'  => 'All with domain helpdesk role',                      'dh'     => 'All with domain helpdesk role',
                     'anyda'  => 'All with domain helpdesk assistant role',                      'da'     => '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 7661  sub domain_adhoc_access { Line 7663  sub domain_adhoc_access {
                 }                  }
             } 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 'anydh') {              } elsif ($access eq 'dh') {
                 $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') {              } elsif ($access eq 'da') {
                 $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('da'));                  $domusage{$role} = &mt('Any user in domain with active [_1] role',&Apache::lonnet::plaintext('da'));
             } elsif ($access eq 'all') {              } elsif ($access eq 'all') {
                 $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',                  $domusage{$role} = &mt('Any user in domain with active [_1] or [_2] role',
Line 7852  sub update_helpdeskaccess { Line 7854  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','anydh','anyda','none','status','inc','exc');      my @accesstypes = ('all','dh','da','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 8103  sub update_helpdeskaccess { Line 8105  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') {                              } elsif ($newsettings{$role}{'access'} eq 'dh') {
                                 $r->print(&mt('Helpdesk staff can use this role if they have an active [_1] role',                                  $r->print(&mt('Helpdesk staff can use this role if they have an active [_1] role',
                                               &Apache::lonnet::plaintext('dh')));                                                &Apache::lonnet::plaintext('dh')));
                             } elsif ($newsettings{$role}{'access'} eq 'anyda') {                              } elsif ($newsettings{$role}{'access'} eq 'da') {
                                 $r->print(&mt('Helpdesk staff can use this role if they have an active [_1] role',                                  $r->print(&mt('Helpdesk staff can use this role if they have an active [_1] role',
                                               &Apache::lonnet::plaintext('da')));                                                &Apache::lonnet::plaintext('da')));
                             } elsif ($newsettings{$role}{'access'} eq 'none') {                              } elsif ($newsettings{$role}{'access'} eq 'none') {
Line 8224  sub user_search_result { Line 8226  sub user_search_result {
             my $domd_chk = &domdirectorysrch_check($srch);              my $domd_chk = &domdirectorysrch_check($srch);
             $response .= '<span class="LC_warning">'.$instd_chk.'</span><br />';              $response .= '<span class="LC_warning">'.$instd_chk.'</span><br />';
             if ($domd_chk eq 'ok') {              if ($domd_chk eq 'ok') {
                 $response .= &mt('You may want to search in the LON-CAPA domain instead of the institutional directory.');                  $response .= &mt('You may want to search in the LON-CAPA domain instead of in the institutional directory.');
             }              }
             $response .= '<br />';              $response .= '<br />';
         }          }
Line 8235  sub user_search_result { Line 8237  sub user_search_result {
                 my $instd_chk = &instdirectorysrch_check($srch);                  my $instd_chk = &instdirectorysrch_check($srch);
                 $response .= '<span class="LC_warning">'.$domd_chk.'</span><br />';                  $response .= '<span class="LC_warning">'.$domd_chk.'</span><br />';
                 if ($instd_chk eq 'ok') {                  if ($instd_chk eq 'ok') {
                     $response .= &mt('You may want to search in the institutional directory instead of the LON-CAPA domain.');                      $response .= &mt('You may want to search in the institutional directory instead of in the LON-CAPA domain.');
                 }                  }
                 $response .= '<br />';                  $response .= '<br />';
             }              }
Line 8336  sub user_search_result { Line 8338  sub user_search_result {
                 $response = '<span class="LC_warning">'.                  $response = '<span class="LC_warning">'.
                     &mt('Institutional directory search is not available in domain: [_1]',$showdom).                      &mt('Institutional directory search is not available in domain: [_1]',$showdom).
                     '</span><br />'.                      '</span><br />'.
                     &mt('You may want to search in the LON-CAPA domain instead of the institutional directory.').                      &mt('You may want to search in the LON-CAPA domain instead of in the institutional directory.').
                     '<br />';                       '<br />'; 
             }              }
         }          }
Line 8409  sub user_search_result { Line 8411  sub user_search_result {
                 $response = '<span class="LC_warning">'.                  $response = '<span class="LC_warning">'.
                     &mt('Institutional directory search is not available in domain: [_1]',$showdom).                      &mt('Institutional directory search is not available in domain: [_1]',$showdom).
                     '</span><br />'.                      '</span><br />'.
                     &mt('You may want to search in the LON-CAPA domain instead of the institutional directory.').                      &mt('You may want to search in the LON-CAPA domain instead of in the institutional directory.').
                     '<br />';                      '<br />';
             }              }
         }          }
Removed from v.1.433  
changed lines
  Added in v.1.436

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