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

Diff for /loncom/interface/loncreateuser.pm between versions 1.478 and 1.480

version 1.478, 2024/05/01 21:22:09 version 1.480, 2024/05/21 02:57:15
Line 285  sub build_tools_display { Line 285  sub build_tools_display {
                    'webdav'     => "WebDAV access to Authoring Spaces (https)",                     'webdav'     => "WebDAV access to Authoring Spaces (https)",
                    'editors'    => "Available Editors",                     'editors'    => "Available Editors",
                    'managers'   => "Co-authors who can add/revoke roles",                     'managers'   => "Co-authors who can add/revoke roles",
                    'archive'    => "Managers can download tar.gz file of Authoring Space",                      'archive'    => "Managers can download tar.gz file of Authoring Space",
                    'portfolio'  => "Personal User Portfolio",                     'portfolio'  => "Personal User Portfolio",
                    'portaccess' => "Portfolio Shareable",                     'portaccess' => "Portfolio Shareable",
                    'timezone'   => "Can set Time Zone",                     'timezone'   => "Can set Time Zone",
Line 3376  sub update_user_data { Line 3376  sub update_user_data {
                 if ($env{'form.customwebdav'} == 1) {                  if ($env{'form.customwebdav'} == 1) {
                     $newcustom{'webdav'} = $env{'form.authordefaults_webdav'};                      $newcustom{'webdav'} = $env{'form.authordefaults_webdav'};
                     $changed{'webdav'} = &tool_admin('webdav',$newcustom{'webdav'},                      $changed{'webdav'} = &tool_admin('webdav',$newcustom{'webdav'},
                                                   \%changeHash,'authordefaults');                                                       \%changeHash,'authordefaults');
                 }                  }
                 if ($env{'for.customarchive'} == 1) {                  if ($env{'form.customarchive'} == 1) {
                     $newcustom{'archive'} = $env{'form.authordefaults_archive'};                      $newcustom{'archive'} = $env{'form.authordefaults_archive'};
                     $changed{'archive'} = &tool_admin('archive',$newcustom{'archive'},                      $changed{'archive'} = &tool_admin('archive',$newcustom{'archive'},
                                                   \%changeHash,'authordefaults');                                                        \%changeHash,'authordefaults');
   
                 }                  }
             }              }
Line 3867  sub update_user_data { Line 3867  sub update_user_data {
                                         $newenvhash{'environment.editors'} = 'edit,xml';                                          $newenvhash{'environment.editors'} = 'edit,xml';
                                     }                                      }
                                 }                                  }
                               } elsif ($key eq 'archive') {
                                   $newenvhash{'environment.author.'.$key} =
                                       $changeHash{'author.'.$key};
                                   if ($changeHash{'author.'.$key} ne '') {
                                       $newenvhash{'environment.canarchive'} =
                                           $changeHash{'author.'.$key};
                                   } else {
                                       unless ($got_domdefs) {
                                           %domdefaults =
                                              &Apache::lonnet::get_domain_defaults($env{'user.domain'});
                                           $got_domdefs = 1;
                                       }
                                       $newenvhash{'environment.canarchive'} =
                                           $domdefaults{'archive'};
                                   }
                             } elsif ($key ne 'quota') {                              } elsif ($key ne 'quota') {
                                 $newenvhash{'environment.tools.'.$key} =                                   $newenvhash{'environment.tools.'.$key} = 
                                     $changeHash{'tools.'.$key};                                      $changeHash{'tools.'.$key};
Removed from v.1.478  
changed lines
  Added in v.1.480

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