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

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

version 1.480, 2024/05/21 02:57:15 version 1.483, 2025/01/13 01:00:58
Line 375  sub build_tools_display { Line 375  sub build_tools_display {
                 if ($userenv{'tools.'.$item} ne '') {                  if ($userenv{'tools.'.$item} ne '') {
                     $cust_on = ' checked="checked" ';                      $cust_on = ' checked="checked" ';
                     $cust_off = '';                      $cust_off = '';
                       $curr_access = $userenv{'tools.'.$item};
                   } else {
                       $curr_access =
                           &Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,'reload',
                                                             undef,\%userenv,'',
                                                             {'is_adv' => $isadv});
                 }                  }
             }              }
         } elsif ($userenv{$context.'.'.$item} ne '') {          } elsif ($userenv{$context.'.'.$item} ne '') {
Line 1525  sub print_user_modification_page { Line 1531  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 2910  sub personal_data_display { Line 2917  sub personal_data_display {
             $rowcount ++;              $rowcount ++;
         }          }
     }      }
       my %shownfields;
       if ($env{'request.role.domain'} ne $ccdomain) {
           my %shownfields_by_type =
               &Apache::lonuserutils::get_othdom_shownfields($ccdomain,\@userinfo);
           my @types = split(/:/,$userenv{'inststatus'});
           if (@types == 0) {
               @types = ('default');
           }
           foreach my $type (@types) {
               if (ref($shownfields_by_type{$type}) eq 'HASH') {
                   foreach my $field (keys(%{$shownfields_by_type{$type}})) {
                       if ($shownfields_by_type{$type}{$field}) {
                           $shownfields{$field} = 1;
                       }
                   }
               }
           }
       }
     foreach my $item (@userinfo) {      foreach my $item (@userinfo) {
         my $rowtitle = $lt{$item};          my $rowtitle = $lt{$item};
         my $hiderow = 0;          my $hiderow = 0;
Line 2956  sub personal_data_display { Line 2981  sub personal_data_display {
                     $row .= '<br />'.&Apache::lonuserutils::forceid_change($context);                      $row .= '<br />'.&Apache::lonuserutils::forceid_change($context);
                 }                  }
             } else {              } else {
                 $row .= $userenv{$item};                  if ($env{'request.role.domain'} ne $ccdomain) {
                       if ($shownfields{$item}) {
                           $row .= $userenv{$item};
                       } else {
                           $row .= &mt('not shown');
                       }
                   } else {
                       $row .= $userenv{$item};
                   }
             }              }
         }          }
         $row .= &Apache::lonhtmlcommon::row_closure(1);          $row .= &Apache::lonhtmlcommon::row_closure(1);
Line 6486  sub handler { Line 6519  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 6990  sub print_main_menu { Line 7044  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.480  
changed lines
  Added in v.1.483

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