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

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

version 1.481, 2024/08/31 21:12:45 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 2911  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 2957  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);
Removed from v.1.481  
changed lines
  Added in v.1.483

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