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

Diff for /loncom/auth/lonroles.pm between versions 1.370 and 1.375

version 1.370, 2023/06/20 14:04:02 version 1.375, 2024/12/20 00:24:39
Line 703  sub handler { Line 703  sub handler {
      $env{'user.name'},       $env{'user.name'},
                                                      &mt('Assigned from [_1] at [_2] for [_3]'                                                       &mt('Assigned from [_1] at [_2] for [_3]'
                                                         ,$ip                                                          ,$ip
                                                         ,&Apache::lonlocal::locallocaltime()                                                          ,&Apache::lonlocal::locallocaltime($now)
                                                         ,$trolecode)                                                          ,$trolecode)
                                                      );                                                       );
  unless ($assignresult eq 'ok') {   unless ($assignresult eq 'ok') {
Line 1237  ENDCLOSE Line 1237  ENDCLOSE
         $start_page=&Apache::loncommon::start_page($pagetitle,undef,          $start_page=&Apache::loncommon::start_page($pagetitle,undef,
                                                   {bread_crumbs=>$brcrum,crstype=>'Placement'});                                                    {bread_crumbs=>$brcrum,crstype=>'Placement'});
     } else {      } else {
         my $crumbsright;          my ($crumbsright,$crumbs_style);
         unless (($norolelist) && ((split(/:/,$env{'user.error.msg'}))[2])) {          unless (($norolelist) && ((split(/:/,$env{'user.error.msg'}))[2])) {
             $funcs = &get_roles_functions($showcount,$cattype,$domdefs{'userapprovals'});              $funcs = &get_roles_functions($showcount,$cattype,$domdefs{'userapprovals'});
             if ($env{'browser.mobile'}) {              if ($env{'browser.mobile'}) {
                 $crumbsright = $funcs;                  $crumbsright = $funcs;
                 undef($funcs);                  undef($funcs);
                   $crumbs_style = 'overflow: visible;';
             }              }
         }          }
         $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum,          $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum,
                                                                      bread_crumbs_component=>$crumbsright});                                                                       bread_crumbs_component=>$crumbsright,
                                                                        bread_crumbs_style=>$crumbs_style,});
     }      }
     &js_escape(\$standby);      &js_escape(\$standby);
     my $noscript='<br /><span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />';      my $noscript='<br /><span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />';
Line 1801  sub gather_roles { Line 1803  sub gather_roles {
                                 foreach my $rolename (sort(keys(%{$domdef{'adhocroles'}}))) {                                  foreach my $rolename (sort(keys(%{$domdef{'adhocroles'}}))) {
                                     if (ref($domdef{'adhocroles'}{$rolename}) eq 'HASH') {                                      if (ref($domdef{'adhocroles'}{$rolename}) eq 'HASH') {
                                         $adhocdesc{$tdom}{$rolename} = $domdef{'adhocroles'}{$rolename}{'desc'};                                          $adhocdesc{$tdom}{$rolename} = $domdef{'adhocroles'}{$rolename}{'desc'};
                                         $desc = $adhocdesc{$tdom}{$rolename};  
                                     }                                      }
                                 }                                  }
                                   $desc = $adhocdesc{$tdom}{$rolename};
                             }                              }
                         }                          }
                         if ($desc ne '') {                          if ($desc ne '') {
Line 2245  sub build_roletext { Line 2247  sub build_roletext {
                         $trolecode."','".$buttonname.'\');" /></td>';                          $trolecode."','".$buttonname.'\');" /></td>';
         }          }
     }      }
     if (($trolecode !~ m/^(dc|ca|au|aa)\./)  && (!$skipcal)) {      if (($trolecode !~ m/^(ca|aa)\./) && ($trest ne '') && (!$skipcal)) {
  $tremark.=&Apache::lonannounce::showday(time,1,   $tremark.=&Apache::lonannounce::showday(time,1,
  &Apache::lonannounce::readcalendar($tdom.'_'.$trest));   &Apache::lonannounce::readcalendar($tdom.'_'.$trest));
     }      }
Line 2704  sub update_session_roles { Line 2706  sub update_session_roles {
                         }                          }
                     } else {                      } else {
                         $newrole{$rolekey} = $status_in_db;                          $newrole{$rolekey} = $status_in_db;
                           if ($role eq 'au') {
                               my %userenv =
                                   &Apache::lonnet::userenvironment($env{'user.domain'},
                                                                    $env{'user.name'},'authoreditors');
                               if ($userenv{'authoreditors'}) {
                                   $userenv{'editors'} = $userenv{'authoreditors'};
                               } else {
                                   my %domdef = &Apache::lonnet::get_domain_defaults($env{'user.domain'});
                                   if ($domdef{'editors'} ne '') {
                                       $userenv{'editors'} = $domdef{'editors'};
                                   } else {
                                       $userenv{'editors'} = 'edit,xml';
                                   }
                               }
                               &Apache::lonnet::appenv(\%userenv);
                           }
                     }                      }
                 }                  }
             }              }
Line 3616  sub ltienroll { Line 3634  sub ltienroll {
                 &LONCAPA::ltiutils::batchaddroster($item);                  &LONCAPA::ltiutils::batchaddroster($item);
             }              }
         }          }
           $rosterupdates = []; 
     }      }
       return OK;
 }  }
   
 sub set_deeplink_target {  sub set_deeplink_target {
Removed from v.1.370  
changed lines
  Added in v.1.375

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