[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.481

version 1.478, 2024/05/01 21:22:09 version 1.481, 2024/08/31 21:12:45
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 1525  sub print_user_modification_page { Line 1525  sub print_user_modification_page {
                 'bread_crumbs_component' => 'User Management'};                  'bread_crumbs_component' => 'User Management'};
     if ($env{'form.popup'}) {      if ($env{'form.popup'}) {
         $args->{'no_nav_bar'} = 1;          $args->{'no_nav_bar'} = 1;
           $args->{'add_modal'} = 1;
     }      }
     if (($context eq 'domain') && ($env{'request.role.domain'} eq $ccdomain)) {      if (($context eq 'domain') && ($env{'request.role.domain'} eq $ccdomain)) {
         my @toggles;          my @toggles;
Line 3376  sub update_user_data { Line 3377  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 3868  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};
Line 6471  sub handler { Line 6487  sub handler {
             $r->internal_redirect('/adm/viewcoauthors');              $r->internal_redirect('/adm/viewcoauthors');
             return OK;              return OK;
         }          }
       } elsif (($env{'form.action'} eq 'setenv') && ($context eq 'author')) {
           my ($role,$audom,$auname,$canview,$canedit) =
               &Apache::lonviewcoauthors::get_allowable();
           push(@{$brcrum},
                    {href => '/adm/createuser?action=calist',
                     text => 'Coauthor-viewable list',
                     help => 'Author_List_Coauthors'});
           my $args = { 'bread_crumbs' => $brcrum };
           $r->print(&Apache::loncommon::start_page('Coauthor-viewable list',undef,
                                                    $args));
           my %viewsettings =
               &Apache::lonviewcoauthors::retrieve_view_settings($auname,$audom,$role);
           if ($viewsettings{'show'} eq 'none') {
               $r->print('<h3>'.&mt('Coauthor-viewable listing').'</h3>'.
                         '<p class="LC_info">'.
                         &mt('Listing of co-authors not enabled for this Authoring Space').
                         '</p>');
           } else {
               &Apache::lonviewcoauthors::print_coauthors($r,$auname,$audom,$role,
                                                          '/adm/createuser',\%viewsettings);
           }
     } else {      } else {
         $bread_crumbs_component = 'User Management';          $bread_crumbs_component = 'User Management';
         $args = { bread_crumbs           => $brcrum,          $args = { bread_crumbs           => $brcrum,
Line 6975  sub print_main_menu { Line 7012  sub print_main_menu {
             );              );
         }          }
     } elsif ($context eq 'author') {      } elsif ($context eq 'author') {
           my $coauthorlist;
           if ($env{'request.role'} =~ m{^(?:ca|aa)\./($match_domain)/($match_username)$}) {
               if ($env{'environment.internal.coauthorlist./'.$1.'/'.$2}) {
                   $coauthorlist = 1;
               }
           } elsif ($env{'request.role'} eq "au./$env{'user.domain'}/") {
               if ($env{'environment.coauthorlist'}) {
                   $coauthorlist = 1;
               }
           }
           if ($coauthorlist) {
               push(@{ $menu[1]->{items} },
                   {
                    linktext => 'Co-author-viewable list',
                    icon => 'clst.png',
                    #help => 'Coauthor_Listing',
                    url => '/adm/createuser?action=calist&forceedit=0',
                    permission => $permission->{'cusr'},
                    linktitle => 'Co-author-viewable listing',
               });
           }
         push(@{ $menu[2]->{items} }, #Category: Administration          push(@{ $menu[2]->{items} }, #Category: Administration
             {              {
              linktext => 'Change Log',               linktext => 'Change Log',
Removed from v.1.478  
changed lines
  Added in v.1.481

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