[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.37.2.2 and 1.269.2.39.2.2

version 1.269.2.37.2.2, 2021/01/04 12:53:37 version 1.269.2.39.2.2, 2022/01/16 17:32:44
Line 144  use GDBM_File; Line 144  use GDBM_File;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use HTML::Entities;  use HTML::Entities;
     
   sub start_loading_course {
       my ($r,$title) = @_;
       &Apache::loncommon::content_type($r,'text/html');
       &Apache::loncommon::no_cache($r);
       $r->send_http_header;
       my $swinfo=&Apache::lonmenu::rawconfig();
       # Breadcrumbs
       my $brcrum = [{'href' => '',
                      'text' => $title},];
       my $start_page = &Apache::loncommon::start_page($title,undef,
                                                       {'bread_crumbs' => $brcrum,
                                                        'bread_crumbs_nomenu' => 1,
                                                        'links_disabled' => 1});
       $r->print(<<ENDREDIR);
   $start_page
   <script type="text/javascript">
   // <![CDATA[
   $swinfo
   
   document.body.addEventListener('click', function (event) {
     // filter out clicks on any other elements
     if (event.target.nodeName == 'A' && event.target.getAttribute('aria-disabled') == 'true') {
       event.preventDefault();
     }
   });
   // ]]>
   </script>
   ENDREDIR
       return;
   }
   
   sub finish_loading_course {
       my ($r,$msg,$url) = @_;
       my $link = '<div id="LC_course_loaded" style="display:none"><a href="'.$url.'">'.&mt('Continue').'</a></div>';
       my $end_page = &Apache::loncommon::end_page();
       my $js_url = &js_escape($url);
       my $remote_js;
       if ($env{'environment.remote'} eq 'on') {
           my ($menucoll,$deeplinkmenu,$menuref) = &Apache::loncommon::menucoll_in_effect();
           if ($menucoll) {
               &Apache::lonnet::put('environment',{'remote' => 'off'});
               &Apache::lonnet::appenv({'environment.remote' => 'off'});
               my $menu_name = &Apache::lonmenu::get_menu_name();
               $remote_js = <<ENDCLOSE;
   window.status='Accessing Remote Control';
   menu=window.open("/adm/rat/empty.html","$menu_name",
                    "height=350,width=150,scrollbars=no,menubar=no");
   window.status='Disabling Remote Control';
   menu.active=0;
   menu.autologout=0;
   window.status='Closing Remote Control';
   menu.close();
   window.status='Done.';
   ENDCLOSE
           }
       }
       $r->print(<<END);
   $msg
   <script type="text/javascript">
   // <![CDATA[
   \$(document).ready(function() {
       \$("#LC_course_loaded").css("display","block");
       \$('.isDisabled > a').removeAttr("aria-disabled");
       \$('.isDisabled').removeClass("isDisabled");
       $remote_js
       var url = "$js_url";
       \$(location).attr('href',url);
   });
   </script>
   $link
   $end_page
   END
       return;
   }
   
 sub redirect_user {  sub redirect_user {
     my ($r,$title,$url,$msg) = @_;      my ($r,$title,$url,$msg) = @_;
Line 179  ENDREDIR Line 253  ENDREDIR
   
 sub error_page {  sub error_page {
     my ($r,$error,$dest)=@_;      my ($r,$error,$dest)=@_;
     &Apache::loncommon::content_type($r,'text/html');      my %lt = &Apache::lonlocal::texthash(
     &Apache::loncommon::no_cache($r);          pdc => 'Problems during Course Initialization',
     $r->send_http_header;          tfp => 'The following problems occurred:',
     return OK if $r->header_only;          con => 'Continue',
     # Breadcrumbs  
     my $brcrum = [{'href' => $dest,  
                    'text' => 'Problems during Course Initialization'},];  
     $r->print(&Apache::loncommon::start_page('Problems during Course Initialization',  
                                              undef,  
                                              {'bread_crumbs' => $brcrum,})  
     );  
     $r->print(  
         '<script type="text/javascript">'.  
         '// <![CDATA['.  
         &Apache::lonmenu::rawconfig().  
         '// ]]>'.  
         '</script>'.  
       '<p class="LC_error">'.&mt('The following problems occurred:').  
           '<br />'.  
       $error.  
       '</p><br /><a href="'.$dest.'">'.&mt('Continue').'</a>'  
     );      );
     $r->print(&Apache::loncommon::end_page());      my $end_page = &Apache::loncommon::end_page();
       $dest = &HTML::Entities::encode($dest,'"<>&');
       $r->print(<<END);
   <h3>$lt{'pdc'}</h3>
   <p class="LC_error">$lt{'tfp'}
   <br />
   $error
   </p><br /><a href="$dest">$lt{'con'}</a>
   $end_page
   END
       return;
 }  }
   
 sub handler {  sub handler {
Line 227  sub handler { Line 294  sub handler {
         $update = $then;          $update = $then;
     }      }
   
       my ($norolelist,$blocked_by_ip,$blocked_type,$clientip);
       $clientip = &Apache::lonnet::get_requestor_ip($r);
       if (($env{'request.course.id'}) && ($env{'request.deeplink.login'})) {
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
           my $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);
           if ($deeplink_symb) {
               my ($menucoll,$deeplinkmenu,$menuref) = &Apache::loncommon::menucoll_in_effect();
               if (ref($menuref) eq 'HASH') {
                   unless (($menuref->{'role'}) || ($env{'request.role.adv'})) {
                       foreach my $envkey (keys(%env)) {
                           next unless ($envkey =~ /^form\./);
                           if ($envkey =~ m{\./($match_domain)/($match_courseid)(?:/(\w+)|$)}) {
                               unless (($1 eq $cdom) && ($2 eq $cnum)) {
                                   delete($env{$envkey});
                               }
                           }
                       }
                       if ($env{'form.selectrole'}) {
                           if ($env{'form.switchrole'} =~ m{\./($match_domain)/($match_courseid)(?:/(\w+)|$)}) {
                               unless (($1 eq $cdom) && ($2 eq $cnum)) {
                                   delete($env{'form.selectrole'});
                                   delete($env{'form.switchrole'});
                               }
                           } elsif ($env{'form.newrole'} =~ m{\./($match_domain)/($match_courseid)(?:/(\w+)|$)}) {
                               unless (($1 eq $cdom) && ($2 eq $cnum)) {
                                   delete($env{'form.selectrole'});
                                   delete($env{'form.newrole'});
                               }
                           }
                       }
                       $norolelist = 1;
                   }
               }
           }
       }
   
       if ($env{'form.selectrole'}) {
           my ($role,$cdom,$cnum,$rest);
           if ($env{'form.switchrole'} =~ m{^(co|cc|in|ta|ep|ad|st|cr).*?\./($match_domain)/($match_courseid)(/(\w+)|$)}) {
               ($role,$cdom,$cnum,$rest) = ($1,$2,$3,$4);
           } elsif ($env{'form.newrole'} =~ m{^(co|cc|in|ta|ep|ad|st|cr).*?\./($match_domain)/($match_courseid)(/(\w+)|$)}) {
               ($role,$cdom,$cnum,$rest) = ($1,$2,$3,$4);
           }
           if ($cdom ne '') {
               my ($has_evb,$check_ipaccess,$showrole);
               $showrole = 1;
               my $checkrole = "cm./$cdom/$cnum";
               if ($rest ne '') {
                   $checkrole .= "/$rest";
               }
               if ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
                   ($role ne 'st')) {
                   $has_evb = 1;
               }
               unless ($has_evb) {
                   my @machinedoms = &Apache::lonnet::current_machine_domains();
                   my $udom = $env{'user.domain'};
                   if ($udom eq $cdom) {
                       $check_ipaccess = 1;
                   } elsif (($udom ne '') && (grep(/^\Q$udom\E$/,@machinedoms))) {
                       $check_ipaccess = 1;
                   } else {
                       my $lonhost = $Apache::lonnet::perlvar{'lonHostID'};
                       my $internet_names = &Apache::lonnet::get_internet_names($lonhost);
                       my $cprim = &Apache::lonnet::domain($cdom,'primary');
                       my $cintdom = &Apache::lonnet::internet_dom($cprim);
                       if (($cintdom ne '') && (ref($internet_names) eq 'ARRAY')) {
                           if (grep(/^\Q$cintdom\E$/,@{$internet_names})) {
                               $check_ipaccess = 1;
                           }
                       }
                   }
                   if ($check_ipaccess) {
                       my ($ipaccessref,$cached)=&Apache::lonnet::is_cached_new('ipaccess',$cdom);
                       unless (defined($cached)) {
                           my %domconfig =
                               &Apache::lonnet::get_dom('configuration',['ipaccess'],$cdom);
                           $ipaccessref = &Apache::lonnet::do_cache_new('ipaccess',$cdom,$domconfig{'ipaccess'},1800);
                       }
                       if (ref($ipaccessref) eq 'HASH') {
                           foreach my $id (keys(%{$ipaccessref})) {
                               if (ref($ipaccessref->{$id}) eq 'HASH') {
                                   my $range = $ipaccessref->{$id}->{'ip'};
                                   if ($range) {
                                       my $type = 'exclude';
                                       if (&Apache::lonnet::ip_match($clientip,$range)) {
                                           $type = 'include';
                                       }
                                       if (ref($ipaccessref->{$id}->{'courses'}) eq 'HASH') {
                                           if ($ipaccessref->{$id}->{'courses'}{$cdom.'_'.$cnum}) {
                                               if ($type eq 'include') {
                                                   $showrole = 1;
                                                   last;
                                               } else {
                                                   $showrole = 0;
                                               }
                                           } else {
                                               if ($type eq 'include') {
                                                   $showrole = 0;
                                               } else {
                                                   $showrole = 1;
                                               }
                                           }
                                       }
                                   }
                               }
                           }
                       }
                   }
               }
               unless ($showrole) {
                   $blocked_by_ip = 1;
                   $blocked_type = &Apache::loncommon::course_type($cdom.'_'.$cnum);
                   delete($env{'form.selectrole'});
                   delete($env{'form.newrole'});
               }
           }
       }
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
   
 # -------------------------------------------------- Check if setting hot list  # -------------------------------------------------- Check if setting hot list
Line 581  ENDENTERKEY Line 769  ENDENTERKEY
                                 }                                  }
                             }                              }
                         }                          }
                         my $msg;                          my $crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);
                           $crstype = lc($crstype);
                           my $preamble = '<div id="LC_update_'.$cdom.'_'.$cnum.'" class="LC_info">'.
                                          '<br />'.
                                          &mt("Please be patient while your $crstype loads").
                                          '<br /></div>'.
                                          '<div style="padding:0;clear:both;margin:0;border:0"></div>';
                           my $closure = <<ENDCLOSE;
   <script type="text/javascript">
   // <![CDATA[
   \$("#LC_update_${cdom}_${cnum}").hide('slow');
   // ]]>
   </script>
   ENDCLOSE
                           my $title = &mt("Loading $crstype");
                           &start_loading_course($r,$title);
                           my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
                           &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Loading ...'));
                           $r->rflush();
                           my ($msg,$blockcrit,$critmsg_check);
                           $critmsg_check = 1;
                           $blockcrit = &Apache::loncommon::blocking_status('alert',$clientip,$cnum,$cdom,undef,1);
                           if ($blockcrit) {
                               my $checkrole = "cm./$cdom/$cnum";
                               if ($csec ne '') {
                                   $checkrole .= "/$csec";
                               }
                               unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
                                       ($trolecode !~ m{^st\./$cdom/$cnum})) {
                                   $critmsg_check = 0;
                               }
                           }
                         my ($furl,$ferr)=                          my ($furl,$ferr)=
                             &Apache::lonuserstate::readmap($cdom.'/'.$cnum);                              &Apache::lonuserstate::readmap($cdom.'/'.$cnum,$critmsg_check);
                         unless ($ferr) {                          &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished!'));
                           &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                           $r->print($closure);
                           $r->rflush();
                           if ($ferr) {
                               $furl = '/adm/roles?tryagain=1';
                           } else {
                               &Apache::lonnet::appenv({'request.course.timechecked'=>$now});
                             unless (($env{'form.switchrole'}) ||                              unless (($env{'form.switchrole'}) ||
                                     ($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {                                      ($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {
                                 &Apache::lonnet::put('nohist_crslastlogin',                                  &Apache::lonnet::put('nohist_crslastlogin',
Line 639  ENDENTERKEY Line 865  ENDENTERKEY
                             }                              }
     if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }      if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
     &Apache::lonnet::appenv({'request.role.adv'=>$tadv});      &Apache::lonnet::appenv({'request.role.adv'=>$tadv});
                               if ($ferr) {
                                   if ($env{'form.orgurl'}) {
                                       $furl .= '&orgurl='.&HTML::Entities::encode($env{'form.orgurl'},'<>&"');
                                   }
                                   if ($env{'form.symb'}) {
                                       $furl .= '&symb='.&HTML::Entities::encode($env{'form.symb'},'<>&"');
                                   }
                               }
                             if (($ferr) && ($tadv)) {                              if (($ferr) && ($tadv)) {
  &error_page($r,$ferr,$dest);                                  &error_page($r,$ferr,$furl);
     } else {      } else {
                                   if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
                                       if (($env{'form.orgurl'} ne '') && ($env{'form.symb'} ne '')) {
                                           unless (&Apache::lonnet::symbverify($env{'form.symb'},$env{'form.orgurl'})) {
                                               $dest=$env{'form.orgurl'};
                                           }
                                       }
                                   }
                                 if ($dest =~ m{^/adm/coursedocs\?folderpath}) {                                  if ($dest =~ m{^/adm/coursedocs\?folderpath}) {
                                     if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {                                       if ($env{'request.course.id'} eq $cdom.'_'.$cnum) { 
                                         my $chome = &Apache::lonnet::homeserver($cnum,$cdom);                                          my $chome = &Apache::lonnet::homeserver($cnum,$cdom);
Line 649  ENDENTERKEY Line 890  ENDENTERKEY
                                                                                        $cdom.'_'.$cnum);                                                                                         $cdom.'_'.$cnum);
                                     }                                      }
                                 }                                  }
  $r->internal_redirect($dest);                                  if ($ferr) {
                                       if (!$env{'request.course.id'}) {
                                           &Apache::lonnet::appenv(
                                              {"request.course.id"  => $cdom.'_'.$cnum});
                                           $r->print('<p class="LC_error">'.
                                                     &mt('Could not initialize [_1] at this time.',
                                                         $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                                     '</p>'.
                                                     '<p><a href="'.$furl.'">'.
                                                     &mt('Please try again.').'</a></p>'.
                                                     &Apache::loncommon::end_page());
                                       }
                                   } else {
                                       $msg = '<p>'.&mt('Entering [_1] ...',
                                                        $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                              '</p>';
                                       &finish_loading_course($r,$msg,$dest);
                                   }
     }      }
                               $r->rflush();
     return OK;      return OK;
  } else {   } else {
     if (!$env{'request.course.id'}) {      if (!$env{'request.course.id'}) {
  &Apache::lonnet::appenv(   &Apache::lonnet::appenv(
       {"request.course.id"  => $cdom.'_'.$cnum});        {"request.course.id"  => $cdom.'_'.$cnum});
  $furl='/adm/roles?tryagain=1';                              }
                 $msg='<p><span class="LC_error">'  
                     .&mt('Could not initialize [_1] at this time.',  
                          $env{'course.'.$cdom.'_'.$cnum.'.description'})  
                     .'</span></p>'  
                     .'<p>'.&mt('Please try again.').'</p>'  
                     .'<p>'.$ferr.'</p>';  
     }  
     if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }      if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
     &Apache::lonnet::appenv({'request.role.adv'=>$tadv});      &Apache::lonnet::appenv({'request.role.adv'=>$tadv});
                               if ($ferr) {
     if (($ferr) && ($tadv)) {                                  if ($tadv) {
  &error_page($r,$ferr,$furl);                                      &error_page($r,$ferr,$furl);
                                   } else {
                                       $r->print('<p class="LC_error">'.
                                                 &mt('Could not initialize [_1] at this time.',
                                                     $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                                 '</p>'.
                                                 '<p><a href="'.$furl.'">'.&mt('Please try again.').'</a></p>'.
                                                 &Apache::loncommon::end_page());
                                   }
     } else {      } else {
  # Check to see if the user is a CC entering a course    # Check to see if the user is a CC entering a course 
  # for the first time   # for the first time
Line 692  ENDENTERKEY Line 952  ENDENTERKEY
                                             if (($dest =~ m{^\Q/public/$cdom/$cnum/syllabus\E.*(\?|\&)usehttp=1}) ||                                              if (($dest =~ m{^\Q/public/$cdom/$cnum/syllabus\E.*(\?|\&)usehttp=1}) ||
                                                 ($dest =~ m{^\Q/adm/wrapper/ext/\E(?!https:)})) {                                                  ($dest =~ m{^\Q/adm/wrapper/ext/\E(?!https:)})) {
                                                 if ($ENV{'SERVER_PORT'} == 443) {                                                  if ($ENV{'SERVER_PORT'} == 443) {
                                                     unless (&Apache::lonnet::uses_sts()) {                                                      my $hostname = $r->hostname();
                                                         my $hostname = $r->hostname();                                                      unless ((&Apache::lonnet::uses_sts()) ||
                                                               (&Apache::lonnet::waf_allssl($hostname))) {
                                                         if ($hostname ne '') {                                                          if ($hostname ne '') {
                                                             $dest = 'http://'.$hostname.$dest;                                                              $dest = 'http://'.$hostname.$dest;
                                                         }                                                          }
Line 735  ENDENTERKEY Line 996  ENDENTERKEY
                                                 $dest .= (($dest =~/\?/)? '&':'?').'symb='.$esc_symb;                                                  $dest .= (($dest =~/\?/)? '&':'?').'symb='.$esc_symb;
                                             }                                              }
                                         }                                          }
                                         &redirect_user($r, &mt('Entering [_1]',                                          $msg = '<p>'.&mt('Entering [_1] ...',
                                                        $env{'course.'.$cdom.'_'.$cnum.'.description'}),                                                           $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                                        $dest, $msg);                                                 '</p>';
                                           if ($env{'form.ttoken'}) {
                                               $dest .= (($dest =~/\?/)? '&':'?').'ttoken='.$env{'form.ttoken'};
                                           }
                                           &finish_loading_course($r,$msg,$dest);
                                           $r->rflush();
                                         return OK;                                          return OK;
                                     }                                      }
     if (&Apache::lonnet::allowed('whn',      if (&Apache::lonnet::allowed('whn',
Line 748  ENDENTERKEY Line 1014  ENDENTERKEY
  ) {   ) {
  my $startpage = &courseloadpage($env{'request.course.id'});   my $startpage = &courseloadpage($env{'request.course.id'});
  unless ($startpage eq 'firstres') {            unless ($startpage eq 'firstres') {         
     $msg = &mt('Entering [_1] ...',      $msg = '<p>'.&mt('Entering [_1] ...',
        $env{'course.'.$env{'request.course.id'}.'.description'});               $env{'course.'.$cdom.'_'.$cnum.'.description'}).
     &redirect_user($r, &mt('New in course'),                                                     '</p>';
                                        '/adm/whatsnew?refpage=start', $msg);                                              &finish_loading_course($r,$msg,'/adm/whatsnew?refpage=start');
     return OK;                                              $r->rflush();
                                               return OK;
  }   }
     }      }
  }   }
                                 # Are we allowed to look at the first resource?                                  # Are we allowed to look at the first resource?
                                 my $access;                                  #
                                 if ($furl =~ m{^(/adm/wrapper|)/ext/}) {                                  # $furl returned by lonuserstate::readmap() has format:
                                     # If it's an external resource,                                  # $url?symb=escaped($symb). If the resource has the
                                     # strip off the symb argument and possible query                                  # encrypturl parameter in effect, the entire string
                                     my ($exturl,$symb) = ($furl =~ m{^(.+)(?:\?|\&)symb=(.+)$});                                  # $url?symb=escaped($symb) is encrypted as a string
                                     # Unencode $symb                                  # beginning /enc/.
                                     $symb = &unescape($symb);                                  #
                                     # Then check for permission                                  my ($access,$unencfurl,$unencsymb);
                                     $access = &Apache::lonnet::allowed('bre',$exturl,$symb);                                  if ($furl =~ m{^(.+)(?:\?|\&)symb=([^&]+)(?:$|&)}) {
                                 # For other resources just check for permission                                      my ($poss_url,$poss_symb) = ($1,$2);
                                       $unencsymb = &unescape($poss_symb);
                                       $unencfurl = $poss_url;
                                   } elsif ($furl =~ m{^/enc/}) {
                                       my $unenc = &Apache::lonenc::unencrypted($furl);
                                       if ($unenc =~ m{^(.+)(?:\?|\&)symb=([^&]+)(?:$|&)}) {
                                           ($unencfurl,$unencsymb) = ($1,$2);
                                           $unencsymb = &unescape($unencsymb);
                                       } else {
                                           $unencfurl = $unenc;
                                       }
                                   } else {
                                       $unencfurl = $furl;
                                   }
                                   if ($unencsymb) {
                                       my $symb = &Apache::lonnet::symbclean($unencsymb);
                                       if (($symb ne '') && (&Apache::lonnet::symbverify($symb,$unencfurl))) {
                                           $access = &Apache::lonnet::allowed('bre',$unencfurl,$symb);
                                       } else {
                                           $access = &Apache::lonnet::allowed('bre',$unencfurl);
                                       }
                                 } else {                                  } else {
                                     $access = &Apache::lonnet::allowed('bre',$furl);                                      $access = &Apache::lonnet::allowed('bre',$unencfurl);
                                 }                                  }
                                 if (!$access) {                                  if ((!$access) || ($access eq 'B') || ($access eq 'D')) {
                                     $furl = &Apache::lonpageflip::first_accessible_resource();                                      $furl = &Apache::lonpageflip::first_accessible_resource();
                                 } elsif ($access eq 'B') {                                      if ($furl eq '') {
                                     $furl = '/adm/navmaps?showOnlyHomework=1';                                          $furl = '/adm/navmaps?showOnlyHomework=1';
                                       }
                                 }                                  }
                                 $msg = &mt('Entering [_1] ...',                                  $msg = '<p>'.&mt('Entering [_1] ...',
    $env{'course.'.$cdom.'_'.$cnum.'.description'});           $env{'course.'.$cdom.'_'.$cnum.'.description'}).
  &redirect_user($r, &mt('Entering [_1]',                                         '</p>';
                                $env{'course.'.$cdom.'_'.$cnum.'.description'}),                                  &finish_loading_course($r,$msg,$furl);
                                $furl, $msg);  
     }      }
     return OK;                              $r->rflush();
                               return OK;
  }   }
     }      }
                     #                      #
Line 846  ENDENTERKEY Line 1134  ENDENTERKEY
         $recent = &mt('Recent Courses');          $recent = &mt('Recent Courses');
         $standby = &mt('Course selected. Please stand by.');          $standby = &mt('Course selected. Please stand by.');
     }      }
       if (($norolelist) && ((split(/:/,$env{'user.error.msg'}))[2])) {
           $crumbtext = 'Access Denied';
           $pagetitle = 'Unauthorized';
       }
     my $brcrum =[{href=>"/adm/roles",text=>$crumbtext}];      my $brcrum =[{href=>"/adm/roles",text=>$crumbtext}];
   
     my %roles_in_env;      my %roles_in_env;
Line 857  ENDENTERKEY Line 1149  ENDENTERKEY
     if ($domdefs{'catauth'}) {      if ($domdefs{'catauth'}) {
         $cattype = $domdefs{'catauth'};          $cattype = $domdefs{'catauth'};
     }      }
     my $funcs = &get_roles_functions($showcount,$cattype);      my ($funcs,$crumbsright);
     my $crumbsright;      unless (($norolelist) && ((split(/:/,$env{'user.error.msg'}))[2])) {
     if ($env{'browser.mobile'}) {          $funcs = &get_roles_functions($showcount,$cattype);
         $crumbsright = $funcs;          if ($env{'browser.mobile'}) {
         undef($funcs);              $crumbsright = $funcs;
               undef($funcs);
           }
     }      }
     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});
Line 968  ENDHEADER Line 1262  ENDHEADER
     }      }
     if ($nochoose) {      if ($nochoose) {
  $r->print("<h2>".&mt('Sorry ...')."</h2>\n<span class='LC_error'>".   $r->print("<h2>".&mt('Sorry ...')."</h2>\n<span class='LC_error'>".
   &mt('This action is currently not authorized.').'</span>'.    &mt('This action is currently not authorized.').'</span>');
   &Apache::loncommon::end_page());          if ($error && $norolelist) {
               $r->print('<br /><br /><h4><span class="LC_error">'.
                         &mt('As your session was launched from a web page external to LON-CAPA some course content may be unavailable, including the resource you were trying to access.').
                        '</span></h4>'.
                        '<h4><span class="LC_error">'.
                        &mt('You may need to login to LON-CAPA directly, or re-launch from a different external system.').
                        '</span></h4>');
           }
    $r->print(&Apache::loncommon::end_page());
  return OK;   return OK;
     } else {      } else {
         if ($updateresult || $reqauthor || $hotlist) {          if ($updateresult || $reqauthor || $hotlist) {
Line 998  ENDHEADER Line 1300  ENDHEADER
         $r->print('<input type="hidden" name="newrole" value="" />');          $r->print('<input type="hidden" name="newrole" value="" />');
         $r->print('<input type="hidden" name="display" value="'.$display.'" />');          $r->print('<input type="hidden" name="display" value="'.$display.'" />');
         $r->print('<input type="hidden" name="state" value="" />');          $r->print('<input type="hidden" name="state" value="" />');
           if ($blocked_by_ip) {
               my $blocked_role = 'student';
               if ($blocked_type eq 'Community') {
                   $blocked_role = 'member';
               }
               $r->print('<h3><span class="LC_error">'.
                         &mt('The [_1] you selected is not available for access with a [_2] role from your current IP address: [_3].',
                             lc($blocked_type),$blocked_role,$clientip).
                         '</span></h3>');
           }
     }      }
     $r->rflush();      $r->rflush();
   
Line 1029  ENDHEADER Line 1341  ENDHEADER
         }          }
     }      }
   
       if ($norolelist) {
           if ($env{'request.role'}) {
               my ($roletext,$role_text_end) = &display_curr_role($env{'request.role'});
               if ($roletext) {
                   $r->print(&Apache::loncommon::start_data_table('LC_textsize_mobile').
                             &Apache::loncommon::start_data_table_row().
                             $roletext.
                             &Apache::loncommon::end_data_table_row());
                   if ($role_text_end) {
                       $r->print(&Apache::loncommon::continue_data_table_row().
                                 $role_text_end.
                                 &Apache::loncommon::end_data_table_row());
                   }
                   $r->print(&Apache::loncommon::end_data_table());
               }
           }
           $r->print(&Apache::loncommon::end_page());
           return OK;
       }
   
 # No active roles  # No active roles
     if ($countactive==0) {      if ($countactive==0) {
         my $elapsed = 0;          my $elapsed = 0;
Line 1272  sub gather_roles { Line 1604  sub gather_roles {
                 $trole=Apache::lonnet::plaintext($role);                  $trole=Apache::lonnet::plaintext($role);
                 my $ttype;                  my $ttype;
                 my $twhere;                  my $twhere;
                   my $skipcal;
                 my ($tdom,$trest,$tsection)=                  my ($tdom,$trest,$tsection)=
                     split(/\//,Apache::lonnet::declutter($where));                      split(/\//,Apache::lonnet::declutter($where));
                 # First, Co-Authorship roles                  # First, Co-Authorship roles
Line 1386  sub gather_roles { Line 1719  sub gather_roles {
                             $env{'course.'.$tcourseid.'.description'}=$twhere;                              $env{'course.'.$tcourseid.'.description'}=$twhere;
                             $sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey;                              $sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey;
                             $ttype = 'Unavailable';                              $ttype = 'Unavailable';
                               $skipcal = 1;
                         }                          }
                     }                      }
                     if ($tsection) {                      if ($tsection) {
Line 1404  sub gather_roles { Line 1738  sub gather_roles {
                 ($role_text,$role_text_end) =                  ($role_text,$role_text_end) =
                     &build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,                      &build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,
                                     $advanced,$tremark,$tbg,$trole,$twhere,$tpstart,                                      $advanced,$tremark,$tbg,$trole,$twhere,$tpstart,
                                     $tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning);                                      $tpend,$nochoose,$button,$switchserver,$reinit,
                                       $switchwarning,$skipcal);
                 $roletext->{$envkey}=[$role_text,$role_text_end];                  $roletext->{$envkey}=[$role_text,$role_text_end];
                 if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}                  if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}
                 $sortrole->{$sortkey}=$envkey;                  $sortrole->{$sortkey}=$envkey;
Line 1707  sub privileges_info { Line 2042  sub privileges_info {
   
 sub build_roletext {  sub build_roletext {
     my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,      my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,
         $tpstart,$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning) = @_;          $tpstart,$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning,$skipcal) = @_;
     my ($roletext,$roletext_end,$poss_adhoc);      my ($roletext,$roletext_end,$poss_adhoc);
     if ($trolecode =~ m/^d(c|h|a)\./) {      if ($trolecode =~ m/^d(c|h|a)\./) {
         $poss_adhoc = 1;          $poss_adhoc = 1;
Line 1765  sub build_roletext { Line 2100  sub build_roletext {
                         $trolecode."','".$buttonname.'\');" /></td>';                          $trolecode."','".$buttonname.'\');" /></td>';
         }          }
     }      }
     if ($trolecode !~ m/^(dc|ca|au|aa)\./) {      if (($trolecode !~ m/^(dc|ca|au|aa)\./) && (!$skipcal)) {
  $tremark.=&Apache::lonannounce::showday(time,1,   $tremark.=&Apache::lonannounce::showday(time,1,
  &Apache::lonannounce::readcalendar($tdom.'_'.$trest));   &Apache::lonannounce::readcalendar($tdom.'_'.$trest));
     }      }
Line 2010  sub display_cc_role { Line 2345  sub display_cc_role {
             my $trolecode = $ccrole.'./'.$tdom.'/'.$trest;              my $trolecode = $ccrole.'./'.$tdom.'/'.$trest;
             my $twhere;              my $twhere;
             my $ttype;              my $ttype;
               my $skipcal;
             my $tbg='LC_roles_is';              my $tbg='LC_roles_is';
             my %newhash=&Apache::lonnet::coursedescription($tcourseid);              my %newhash=&Apache::lonnet::coursedescription($tcourseid);
             if (%newhash) {              if (%newhash) {
Line 2021  sub display_cc_role { Line 2357  sub display_cc_role {
             } else {              } else {
                 $twhere=&mt('Currently not available');                  $twhere=&mt('Currently not available');
                 $env{'course.'.$tcourseid.'.description'}=$twhere;                  $env{'course.'.$tcourseid.'.description'}=$twhere;
                   $skipcal = 1; 
             }              }
             my $trole = &Apache::lonnet::plaintext($ccrole,$ttype,$tcourseid);              my $trole = &Apache::lonnet::plaintext($ccrole,$ttype,$tcourseid);
             $twhere.="<br />".&mt('Domain').":".$tdom;              $twhere.="<br />".&mt('Domain').":".$tdom;
             ($roletext,$roletext_end) = &build_roletext($trolecode,$tdom,$trest,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,'');              ($roletext,$roletext_end) = &build_roletext($trolecode,$tdom,$trest,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,'','','',$skipcal);
           }
       }
       return ($roletext,$roletext_end);
   }
   
   sub display_curr_role {
       my ($currentrole) = @_;
       my ($roletext,$roletext_end);
       my $advanced = $env{'user.adv'};
       my $tryagain = $env{'form.tryagain'};
       my ($role,$rest) = split(m{\./},$currentrole,2);
       unless (!defined($role) || $role eq '') {
           if ($rest =~ m{^($match_domain)/($match_courseid)(?:/(\w+)|$)}) {
               my $cdom = $1;
               my $cnum = $2;
               my $csec = $3;
               my $cid = $cdom.'_'.$cnum;
               my $ttype = $env{'course.'.$cid.'.type'};
               my $skipcal = 1;
               my $tbg='LC_roles_is';
               my $twhere = $env{'course.'.$cid.'.description'}.
                           ' <span class="LC_fontsize_small">'.
                           &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$cnum,$cdom).
                           '</span>';
               my $trole = &Apache::lonnet::plaintext($role,$ttype,$cid);
               if ($csec) {
                   $twhere.= '&nbsp; '.&mt('Section').':&nbsp;'.$csec;
               }
               if ($role ne 'st') {
                   $twhere.= '&nbsp; '.&mt('Domain').':&nbsp;'.$cdom;
               }
               ($roletext,$roletext_end) = &build_roletext($currentrole,$cdom,$cnum,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,'','','',$skipcal);
         }          }
     }      }
     return ($roletext,$roletext_end);      return ($roletext,$roletext_end);
Removed from v.1.269.2.37.2.2  
changed lines
  Added in v.1.269.2.39.2.2

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