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

Diff for /loncom/auth/lonroles.pm between versions 1.269.2.39 and 1.269.2.42

version 1.269.2.39, 2021/12/12 18:17:11 version 1.269.2.42, 2024/12/29 02:02:29
Line 177  ENDREDIR Line 177  ENDREDIR
   
 sub finish_loading_course {  sub finish_loading_course {
     my ($r,$msg,$url) = @_;      my ($r,$msg,$url) = @_;
     my $link = '<div id="LC_course_loaded" style="display:none"><a href="'.$url.'">'.&mt('Continue').'</a></div>';      my $link = '<div id="LC_course_loaded" style="display:none"><a href="'.
                  &HTML::Entities::encode($url,'"<>&').'">'.&mt('Continue').'</a></div>';
     my $end_page = &Apache::loncommon::end_page();      my $end_page = &Apache::loncommon::end_page();
     my $js_url = &js_escape($url);      my $js_url = &js_escape($url);
     $r->print(<<END);      $r->print(<<END);
Line 191  $msg Line 192  $msg
     var url = "$js_url";      var url = "$js_url";
     \$(location).attr('href',url);      \$(location).attr('href',url);
 });  });
   // ]]>
 </script>  </script>
 $link  $link
 $end_page  $end_page
Line 637  sub handler { Line 639  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 836  ENDCLOSE Line 838  ENDCLOSE
                                                   &Apache::loncommon::end_page());                                                    &Apache::loncommon::end_page());
                                     }                                      }
                                 } else {                                  } else {
                                     if (($env{'request.lti.login'}) &&  
                                         ($env{'request.lti.rosterid'} || $env{'request.lti.passbackid'})) {  
                                         &process_lti($r,$cdom,$cnum);  
                                     }  
                                     $msg = '<p>'.&mt('Entering [_1] ...',                                      $msg = '<p>'.&mt('Entering [_1] ...',
                                                      $env{'course.'.$cdom.'_'.$cnum.'.description'}).                                                       $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                            '</p>';                                             '</p>';
Line 1079  ENDCLOSE Line 1077  ENDCLOSE
     if ($domdefs{'catauth'}) {      if ($domdefs{'catauth'}) {
         $cattype = $domdefs{'catauth'};          $cattype = $domdefs{'catauth'};
     }      }
     my ($funcs,$crumbsright);      my ($funcs,$crumbsright,$crumbs_style);
     $funcs = &get_roles_functions($showcount,$cattype);      $funcs = &get_roles_functions($showcount,$cattype);
     if ($env{'browser.mobile'}) {      if ($env{'browser.mobile'}) {
         $crumbsright = $funcs;          $crumbsright = $funcs;
         undef($funcs);          undef($funcs);
           $crumbs_style = 'overflow: visible;';
     }      }
     my $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum,      my $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 1559  sub gather_roles { Line 1559  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 2000  sub build_roletext { Line 2000  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));
     }      }
Removed from v.1.269.2.39  
changed lines
  Added in v.1.269.2.42

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