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

Diff for /loncom/interface/loncreateuser.pm between versions 1.470 and 1.471

version 1.470, 2023/11/03 01:12:15 version 1.471, 2023/11/03 21:40:22
Line 324  sub build_tools_display { Line 324  sub build_tools_display {
         %domconfig =          %domconfig =
             &Apache::lonnet::get_dom('configuration',['quotas','authordefaults'],$ccdomain);              &Apache::lonnet::get_dom('configuration',['quotas','authordefaults'],$ccdomain);
         %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,'tools.webdav',          %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,'tools.webdav',
                                                     'authoreditors','authormanagers');                                                      'authoreditors','authormanagers',
                                                       'domcoord.author');
         @usertools = ('webdav','editors','managers');          @usertools = ('webdav','editors','managers');
         $colspan = ' colspan="2"';          $colspan = ' colspan="2"';
     } else {      } else {
Line 590  sub build_tools_display { Line 591  sub build_tools_display {
         } elsif ($item eq 'managers') {          } elsif ($item eq 'managers') {
             $output .= '<td'.$colspan.'>'.$custom_access.'</td>'."\n".              $output .= '<td'.$colspan.'>'.$custom_access.'</td>'."\n".
                        &Apache::loncommon::end_data_table_row()."\n";                         &Apache::loncommon::end_data_table_row()."\n";
             unless (&Apache::lonnet::allowed('udp',$ccdomain)) {              unless ((&Apache::lonnet::allowed('udp',$ccdomain)) ||
                       (($userenv{'domcoord.author'} eq 'blocked') &&
                        (($env{'user.name'} ne $ccuname) || ($env{'user.domain'} ne $ccdomain)))) {
                 $output .=                  $output .=
                     &Apache::loncommon::start_data_table_row()."\n".                      &Apache::loncommon::start_data_table_row()."\n".
                     '<td'.$colspan.'>';                      '<td'.$colspan.'>';
Line 3227  sub update_user_data { Line 3230  sub update_user_data {
     my @usertools = ('aboutme','blog','portfolio','portaccess','timezone');      my @usertools = ('aboutme','blog','portfolio','portaccess','timezone');
     my @requestcourses = ('official','unofficial','community','textbook','placement','lti');      my @requestcourses = ('official','unofficial','community','textbook','placement','lti');
     my @requestauthor = ('requestauthor');      my @requestauthor = ('requestauthor');
     my @authordefaults = ('webdav','editors','managers');      my @authordefaults = ('webdav','editors');
     my ($othertitle,$usertypes,$types) =       my ($othertitle,$usertypes,$types) = 
         &Apache::loncommon::sorted_inst_types($env{'form.ccdomain'});          &Apache::loncommon::sorted_inst_types($env{'form.ccdomain'});
     my %canmodify_status =      my %canmodify_status =
Line 3432  sub update_user_data { Line 3435  sub update_user_data {
              'requestcourses.placement','requestcourses.lti',               'requestcourses.placement','requestcourses.lti',
              'reqcrsotherdom.official','reqcrsotherdom.unofficial',               'reqcrsotherdom.official','reqcrsotherdom.unofficial',
              'reqcrsotherdom.community','reqcrsotherdom.textbook',               'reqcrsotherdom.community','reqcrsotherdom.textbook',
              'reqcrsotherdom.placement'],               'reqcrsotherdom.placement','domcoord.author'],
               $env{'form.ccdomain'},$env{'form.ccuname'});                $env{'form.ccdomain'},$env{'form.ccuname'});
         my ($tmp) = keys(%userenv);          my ($tmp) = keys(%userenv);
         if ($tmp =~ /^(con_lost|error)/i) {           if ($tmp =~ /^(con_lost|error)/i) { 
             %userenv = ();              %userenv = ();
         }          }
           unless (($userenv{'domcoord.author'} eq 'blocked') &&
                   (($env{'user.name'} ne $env{'form.ccuname'}) ||
                    ($env{'user.domain'} ne $env{'form.ccdomain'}))) {
               push(@authordefaults,'managers');
           }
         my $no_forceid_alert;          my $no_forceid_alert;
         # Check to see if user information can be changed          # Check to see if user information can be changed
         my %domconfig =          my %domconfig =
Removed from v.1.470  
changed lines
  Added in v.1.471

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