[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.2.5 and 1.269.2.39.2.12

version 1.269.2.39.2.5, 2022/07/08 15:45:20 version 1.269.2.39.2.12, 2025/05/28 04:20:22
Line 508  sub handler { Line 508  sub handler {
  "request.course.sec"          => '',   "request.course.sec"          => '',
                                  "request.course.tied"         => '',                                   "request.course.tied"         => '',
                                  "request.course.timechecked"  => '',                                   "request.course.timechecked"  => '',
                                    "request.course.suppupdated"  => '',
                                    "request.course.deeponlyprot" => '',
  "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 706  sub handler { Line 708  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 863  ENDCLOSE Line 865  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 896  ENDCLOSE Line 897  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 957  ENDCLOSE Line 960  ENDCLOSE
                                               &Apache::loncommon::end_page());                                                &Apache::loncommon::end_page());
                                 }                                  }
     } else {      } else {
                                   &set_supplemental_access($cnum,$cdom);
                                 if ($env{'request.deeplink.login'}) {                                  if ($env{'request.deeplink.login'}) {
                                     &set_deeplink_target($cnum,$cdom);                                      &set_deeplink_target($cnum,$cdom);
                                 }                                  }
Line 1114  ENDCLOSE Line 1118  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 1181  ENDCLOSE Line 1191  ENDCLOSE
     if ($domdefs{'catauth'}) {      if ($domdefs{'catauth'}) {
         $cattype = $domdefs{'catauth'};          $cattype = $domdefs{'catauth'};
     }      }
     my ($funcs,$crumbsright);      my ($funcs,$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);          $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 1691  sub gather_roles { Line 1703  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 2132  sub build_roletext { Line 2144  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 2591  sub update_session_roles { Line 2603  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 3441  sub set_deeplink_target { Line 3469  sub set_deeplink_target {
     return;      return;
 }  }
   
   sub set_supplemental_access {
       my ($cnum,$cdom) = @_;
       my ($supplemental,$refs_updated) = &Apache::loncommon::get_supplemental($cnum,$cdom);
       unless ($refs_updated) {
           &Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental);
       }
   }
   
 1;  1;
 __END__  __END__
   
Removed from v.1.269.2.39.2.5  
changed lines
  Added in v.1.269.2.39.2.12

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