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

Diff for /loncom/auth/lonroles.pm between versions 1.365 and 1.368

version 1.365, 2022/06/26 04:03:47 version 1.368, 2022/10/19 00:03:11
Line 499  sub handler { Line 499  sub handler {
  "request.course.sec"          => '',   "request.course.sec"          => '',
                                  "request.course.tied"         => '',                                   "request.course.tied"         => '',
                                  "request.course.timechecked"  => '',                                   "request.course.timechecked"  => '',
                                    "request.course.suppupdated"  => '',
  "request.role"                => 'cm',   "request.role"                => 'cm',
                                  "request.role.adv"            => $env{'user.adv'},                                   "request.role.adv"            => $env{'user.adv'},
  "request.role.domain"         => $env{'user.domain'}});   "request.role.domain"         => $env{'user.domain'}});
Line 853  ENDCLOSE Line 854  ENDCLOSE
                             my ($feeds,$syllabus_time);                              my ($feeds,$syllabus_time);
                             &Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);                              &Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);
                             &Apache::lonnet::appenv({'request.course.feeds' => $feeds});                              &Apache::lonnet::appenv({'request.course.feeds' => $feeds});
                             &Apache::lonnet::get_numsuppfiles($cnum,$cdom,1);  
                             unless ($env{'course.'.$cdom.'_'.$cnum.'.updatedsyllabus'}) {                              unless ($env{'course.'.$cdom.'_'.$cnum.'.updatedsyllabus'}) {
                                 unless (($env{'course.'.$cdom.'_'.$cnum.'.externalsyllabus'}) ||                                  unless (($env{'course.'.$cdom.'_'.$cnum.'.externalsyllabus'}) ||
                                         ($env{'course.'.$cdom.'_'.$cnum.'.uploadedsyllabus'})) {                                          ($env{'course.'.$cdom.'_'.$cnum.'.uploadedsyllabus'})) {
Line 886  ENDCLOSE Line 886  ENDCLOSE
                                 if ($env{'form.symb'}) {                                  if ($env{'form.symb'}) {
                                     $furl .= '&symb='.&HTML::Entities::encode($env{'form.symb'},'<>&"');                                      $furl .= '&symb='.&HTML::Entities::encode($env{'form.symb'},'<>&"');
                                 }                                  }
                               } else {
                                   &set_supplemental_access($cnum,$cdom);
                             }                              }
                             if (($ferr) && ($tadv)) {                              if (($ferr) && ($tadv)) {
  &error_page($r,$ferr,$furl);   &error_page($r,$ferr,$furl);
Line 951  ENDCLOSE Line 953  ENDCLOSE
                                               &Apache::loncommon::end_page());                                                &Apache::loncommon::end_page());
                                 }                                  }
     } else {      } else {
                                   &set_supplemental_access($cnum,$cdom);
                                 if (($env{'request.lti.login'}) &&                                  if (($env{'request.lti.login'}) &&
                                     ($env{'request.lti.rosterid'} || $env{'request.lti.passbackid'})) {                                      ($env{'request.lti.rosterid'} || $env{'request.lti.passbackid'})) {
                                     &process_lti($r,$cdom,$cnum);                                      &process_lti($r,$cdom,$cnum);
Line 1040  ENDCLOSE Line 1043  ENDCLOSE
                                         if ($env{'form.ttoken'}) {                                          if ($env{'form.ttoken'}) {
                                             $dest .= (($dest =~/\?/)? '&':'?').'ttoken='.$env{'form.ttoken'};                                              $dest .= (($dest =~/\?/)? '&':'?').'ttoken='.$env{'form.ttoken'};
                                         }                                          }
                                         unless ($env{'request.lti.login'}) {                                          unless (($env{'request.lti.login'}) || ($env{'request.deeplink.login'})) {
                                             $msg = '<p>'.&mt('Entering [_1] ...',                                              $msg = '<p>'.&mt('Entering [_1] ...',
                                                              $env{'course.'.$cdom.'_'.$cnum.'.description'}).                                                               $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                                    '</p>';                                                     '</p>';
Line 1130  ENDCLOSE Line 1133  ENDCLOSE
                             $redirect_url .= $where;                              $redirect_url .= $where;
                         }                          }
                         $redirect_url .= '/';                          $redirect_url .= '/';
                           if ($env{'form.orgurl'} =~ /^\Q$redirect_url\E/) {
                               my ($path) = ($env{'form.orgurl'} =~ m{^(.+)/[^/]+$});
                               if (($path ne '') && (-e $Apache::lonnet::perlvar{'lonDocRoot'}.$path)) {
                                   $redirect_url = $env{'form.orgurl'};
                               }
                           }
                         &redirect_user($r,&mt('Entering Authoring Space'),                          &redirect_user($r,&mt('Entering Authoring Space'),
                                        $redirect_url);                                         $redirect_url);
                         return OK;                          return OK;
Line 3604  sub set_deeplink_target { Line 3613  sub set_deeplink_target {
     return;      return;
 }  }
   
   sub set_supplemental_access {
       my ($cnum,$cdom) = @_;
       my ($supplemental,$refs_updated) = &Apache::lonnet::get_supplemental($cnum,$cdom);
       unless ($refs_updated) {
           &Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental);
       }
   }
   
 1;  1;
 __END__  __END__
   
Removed from v.1.365  
changed lines
  Added in v.1.368

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