[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.4 and 1.353

version 1.269.2.39.2.4, 2022/05/29 12:46:35 version 1.353, 2021/11/03 01:04:02
Line 140  use Apache::lonnavdisplay(); Line 140  use Apache::lonnavdisplay();
 use Apache::loncoursequeueadmin;  use Apache::loncoursequeueadmin;
 use Apache::longroup;  use Apache::longroup;
 use Apache::lonrss;  use Apache::lonrss;
   use Apache::lonplacementtest;
 use GDBM_File;  use GDBM_File;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use HTML::Entities;  use HTML::Entities;
    
   my $registered_cleanup;
   my $rosterupdates;
   
 sub start_loading_course {  sub start_loading_course {
     my ($r,$title) = @_;      my ($r,$title) = @_;
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
Line 154  sub start_loading_course { Line 158  sub start_loading_course {
     my $brcrum = [{'href' => '',      my $brcrum = [{'href' => '',
                    'text' => $title},];                     'text' => $title},];
     my $start_page = &Apache::loncommon::start_page($title,undef,      my $start_page = &Apache::loncommon::start_page($title,undef,
                                                     {'bread_crumbs' => $brcrum,                                                      {'bread_crumbs' => $brcrum,});
                                                      'bread_crumbs_nomenu' => 1,  
                                                      'links_disabled' => 1});  
     $r->print(<<ENDREDIR);      $r->print(<<ENDREDIR);
 $start_page  $start_page
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 $swinfo  $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>  </script>
 ENDREDIR  ENDREDIR
Line 177  ENDREDIR Line 172  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="'.  #FIXME add continue link, and add jquery to enable menu links when page is loaded
                &HTML::Entities::encode($url,'"<>&').'">'.&mt('Continue').'</a></div>';      my $link;
     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);
     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);      $r->print(<<END);
 $msg  $msg
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 \$(document).ready(function() {  \$(document).ready(function() {
     \$("#LC_course_loaded").css("display","block");  
     \$('.isDisabled > a').removeAttr("aria-disabled");  
     \$('.isDisabled').removeClass("isDisabled");  
     $remote_js  
     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 227  sub redirect_user { Line 197  sub redirect_user {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
     my $swinfo=&Apache::lonmenu::rawconfig();  
   
     # Breadcrumbs      my $start_page;
     my $brcrum = [{'href' => $url,      if ($env{'request.lti.login'}) {
                    'text' => 'Switching Role'},];          $start_page = &Apache::loncommon::start_page(undef,undef,
     my $start_page = &Apache::loncommon::start_page('Switching Role',undef,                                                       {'redirect' => [0,$url],}).$msg;
                                                     {'redirect' => [1,$url],      } else {
                                                      'bread_crumbs' => $brcrum,});          # Breadcrumbs
     my $end_page   = &Apache::loncommon::end_page();          my $brcrum = [{'href' => $url,
                          'text' => 'Switching Role'},];
           $start_page = &Apache::loncommon::start_page('Switching Role',undef,
                                                        {'redirect' => [1,$url],
                                                         'bread_crumbs' => $brcrum,}).
                         "\n<p>$msg</p>";
       }
       my $end_page = &Apache::loncommon::end_page();
   
 # Note to style police:   # Note to style police: 
 # This must only replace the spaces, nothing else, or it bombs elsewhere.  # This must only replace the spaces, nothing else, or it bombs elsewhere.
     $url=~s/ /\%20/g;      $url=~s/ /\%20/g;
     $r->print(<<ENDREDIR);      $r->print(<<ENDREDIR);
 $start_page  $start_page
 <script type="text/javascript">  
 // <![CDATA[  
 $swinfo  
 // ]]>  
 </script>  
 <p>$msg</p>  
 $end_page  $end_page
 ENDREDIR  ENDREDIR
     return;      return;
Line 296  sub handler { Line 266  sub handler {
         $update = $then;          $update = $then;
     }      }
   
     my ($norolelist,$blocked_by_ip,$blocked_type,$clientip);      my $norolelist;
     $clientip = &Apache::lonnet::get_requestor_ip($r);  
     if (($env{'request.course.id'}) && ($env{'request.deeplink.login'})) {      if (($env{'request.course.id'}) && ($env{'request.deeplink.login'})) {
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 334  sub handler { Line 303  sub handler {
         }          }
     }      }
   
     if ($env{'form.selectrole'}) {      $registered_cleanup=0;
         my ($role,$cdom,$cnum,$rest);      @{$rosterupdates}=();
         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 450  sub handler { Line 338  sub handler {
   
     my $envkey;      my $envkey;
     my %dcroles = ();      my %dcroles = ();
     my %helpdeskroles = ();       my %helpdeskroles = ();
     my ($numdc,$numhelpdesk,$numadhoc) =      my ($numdc,$numhelpdesk,$numadhoc) = 
         &check_for_adhoc(\%dcroles,\%helpdeskroles,$update,$then);          &check_for_adhoc(\%dcroles,\%helpdeskroles,$update,$then);
     my $loncaparev = $r->dir_config('lonVersion');      my $loncaparev = $r->dir_config('lonVersion');
   
 # ================================================================== Roles Init  # ================================================================== Roles Init
     if ($env{'form.selectrole'}) {      if ($env{'form.selectrole'}) {
           if (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq '')) {
               if ($env{'form.ltitarget'} eq 'iframe') {
                   &Apache::lonnet::appenv({'request.lti.target' => 'iframe'});
                   delete($env{'form.ltitarget'});
               }
           }
   
         my $locknum=&Apache::lonnet::get_locks();          my $locknum=&Apache::lonnet::get_locks();
         if ($locknum) { return 409; }          if ($locknum) { return 409; }
Line 509  sub handler { Line 403  sub handler {
             if ($custom_adhoc) {              if ($custom_adhoc) {
                 my ($possroles,$description) = &Apache::lonnet::get_my_adhocroles($cdom.'_'.$cnum,1);                  my ($possroles,$description) = &Apache::lonnet::get_my_adhocroles($cdom.'_'.$cnum,1);
                 if (ref($possroles) eq 'ARRAY') {                  if (ref($possroles) eq 'ARRAY') {
                     if (grep(/^\Q$rolename\E$/,@{$possroles})) {                      if (grep(/^\Q$rolename\E$/,@{$possroles})) { 
                         if (&Apache::lonnet::check_adhoc_privs($cdom,$cnum,$update,$refresh,$now,                          if (&Apache::lonnet::check_adhoc_privs($cdom,$cnum,$update,$refresh,$now,
                                                                "cr/$cdom/$cdom".'-domainconfig/'.$rolename,undef,$sec)) {                                                                 "cr/$cdom/$cdom".'-domainconfig/'.$rolename,undef,$sec)) {
                             &Apache::lonnet::appenv({"environment.internal.$cdom.$cnum.cr/$cdom/$cdom".'-domainconfig/'."$rolename.adhoc" => time});                              &Apache::lonnet::appenv({"environment.internal.$cdom.$cnum.cr/$cdom/$cdom".'-domainconfig/'."$rolename.adhoc" => time});
Line 521  sub handler { Line 415  sub handler {
 # Check if user is a DC trying to enter a course or author space and needs privs to be created  # Check if user is a DC trying to enter a course or author space and needs privs to be created
 # Check if user is a DH or DA trying to enter a course and needs privs to be created  # Check if user is a DH or DA trying to enter a course and needs privs to be created
             foreach my $envkey (keys(%env)) {              foreach my $envkey (keys(%env)) {
                 if ($numdc) {  
 # Is this an ad-hoc Coordinator role?  # Is this an ad-hoc Coordinator role?
                   if ($numdc) {
                     if (my ($ccrole,$domain,$coursenum) =                      if (my ($ccrole,$domain,$coursenum) =
         ($envkey =~ m-^form\.(cc|co)\./($match_domain)/($match_courseid)$-)) {          ($envkey =~ m-^form\.(cc|co)\./($match_domain)/($match_courseid)$-)) {
                         if ($dcroles{$domain}) {                          if ($dcroles{$domain}) {
Line 613  sub handler { Line 507  sub handler {
                         }                          }
                         last;                          last;
                     }                      }
                 }                   }
             }              }
         }          }
   
         foreach $envkey (keys(%env)) {          foreach $envkey (keys(%env)) {
             next if ($envkey!~/^user\.role\./);              next if ($envkey!~/^user\.role\./);
             my ($where,$trolecode,$role,$tstatus,$tend,$tstart);              my ($where,$trolecode,$role,$tstatus,$tend,$tstart);
Line 792  ENDCLOSE Line 685  ENDCLOSE
                         $r->rflush();                          $r->rflush();
                         my ($msg,$blockcrit,$critmsg_check);                          my ($msg,$blockcrit,$critmsg_check);
                         $critmsg_check = 1;                          $critmsg_check = 1;
                         $blockcrit = &Apache::loncommon::blocking_status('alert',$clientip,$cnum,$cdom,undef,1);                          $blockcrit = &Apache::loncommon::blocking_status('alert',$cnum,$cdom,undef,1);
                         if ($blockcrit) {                          if ($blockcrit) {
                             my $checkrole = "cm./$cdom/$cnum";                              my $checkrole = "cm./$cdom/$cnum";
                             if ($csec ne '') {                              if ($csec ne '') {
Line 813  ENDCLOSE Line 706  ENDCLOSE
                             $furl = '/adm/roles?tryagain=1';                              $furl = '/adm/roles?tryagain=1';
                         } else {                          } else {
                             &Apache::lonnet::appenv({'request.course.timechecked'=>$now});                              &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',
                                     {$env{'user.name'}.':'.$env{'user.domain'}.                                      {$env{'user.name'}.':'.$env{'user.domain'}.
Line 855  ENDCLOSE Line 748  ENDCLOSE
                         }                          }
  if (($env{'form.orgurl'}) &&    if (($env{'form.orgurl'}) && 
     ($env{'form.orgurl'}!~/^\/adm\/flip/) &&      ($env{'form.orgurl'}!~/^\/adm\/flip/) &&
                             ($env{'form.orgurl'} ne '/adm/roles')) {      ($env{'form.orgurl'} ne '/adm/roles')) {
     my $dest=$env{'form.orgurl'};      my $dest=$env{'form.orgurl'};
                             if ($env{'form.symb'}) {                              if ($env{'form.symb'}) {
                                 if ($dest =~ /\?/) {                                  if ($dest =~ /\?/) {
Line 876  ENDCLOSE Line 769  ENDCLOSE
                                 }                                  }
                             }                              }
                             if (($ferr) && ($tadv)) {                              if (($ferr) && ($tadv)) {
                                 &error_page($r,$ferr,$furl);   &error_page($r,$ferr,$furl);
     } else {      } else {
                                 if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {                                  if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
                                     if (($env{'form.orgurl'} ne '') && ($env{'form.symb'} ne '')) {                                      if (($env{'form.orgurl'} ne '') && ($env{'form.symb'} ne '')) {
                                         unless (&Apache::lonnet::symbverify($env{'form.symb'},$env{'form.orgurl'})) {                                          unless (&Apache::lonnet::symbverify($env{'form.symb'},$env{'form.orgurl'})) {
                                             $dest=$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) { 
Line 905  ENDCLOSE Line 798  ENDCLOSE
                                                   &Apache::loncommon::end_page());                                                    &Apache::loncommon::end_page());
                                     }                                      }
                                 } else {                                  } else {
                                     if ($env{'request.deeplink.login'}) {                                      if (($env{'request.lti.login'}) &&
                                         &set_deeplink_target($cnum,$cdom);                                          ($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'}).
Line 920  ENDCLOSE Line 814  ENDCLOSE
     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});
                             }      }
     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) {
                                 if ($tadv) {                                  if ($tadv) {
                                     &error_page($r,$ferr,$furl);      &error_page($r,$ferr,$furl);
                                 } else {                                  } else {
                                     $r->print('<p class="LC_error">'.                                      $r->print('<p class="LC_error">'.
                                               &mt('Could not initialize [_1] at this time.',                                                &mt('Could not initialize [_1] at this time.',
Line 935  ENDCLOSE Line 829  ENDCLOSE
                                               &Apache::loncommon::end_page());                                                &Apache::loncommon::end_page());
                                 }                                  }
     } else {      } else {
                                 if ($env{'request.deeplink.login'}) {                                  if (($env{'request.lti.login'}) &&
                                     &set_deeplink_target($cnum,$cdom);                                      ($env{'request.lti.rosterid'} || $env{'request.lti.passbackid'})) {
                                       &process_lti($r,$cdom,$cnum);
                                 }                                  }
  # 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 945  ENDCLOSE Line 840  ENDCLOSE
     $furl = "/adm/helper/course.initialization.helper";      $furl = "/adm/helper/course.initialization.helper";
     # Send the user to the course they selected      # Send the user to the course they selected
  } elsif ($env{'request.course.id'}) {   } elsif ($env{'request.course.id'}) {
                                       if ((&Apache::loncommon::course_type() eq 'Placement') && 
                                           (!$env{'request.role.adv'})) {
                                           my ($score,$incomplete) = 
                                               &Apache::lonplacementtest::check_completion(undef,undef,1);
                                           if (($incomplete) && ($incomplete < 100)) {
                                               $msg = '<p>'.&mt('Entering [_1] ...',
                                                                $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                                      '</p>';
                                               &finish_loading_course($r,$msg,'/adm/placement');
                                               $r->rflush();
                                               return OK;
                                           }
                                       }
                                     my ($dest,$destsymb,$checkenc);                                      my ($dest,$destsymb,$checkenc);
                                     $dest = $env{'form.destinationurl'};                                      $dest = $env{'form.destinationurl'};
                                     $destsymb = $env{'form.destsymb'};                                      $destsymb = $env{'form.destsymb'};
Line 973  ENDCLOSE Line 881  ENDCLOSE
                                                 if ($env{'request.role.adv'}) {                                                  if ($env{'request.role.adv'}) {
                                                     $dest = &Apache::lonenc::unencrypted($dest);                                                      $dest = &Apache::lonenc::unencrypted($dest);
                                                     if ($destsymb eq '') {                                                      if ($destsymb eq '') {
                                                         ($destsymb) = ($dest =~ /(?:\?|\&)symb=([^\&]*)/);                                                           ($destsymb) = ($dest =~ /(?:\?|\&)symb=([^\&]*)/);
                                                         $destsymb = &unescape($destsymb);                                                          $destsymb = &unescape($destsymb);
                                                     }                                                      }
                                                 }                                                  }
Line 998  ENDCLOSE Line 906  ENDCLOSE
                                                 }                                                  }
                                             }                                              }
                                         }                                          }
                                         unless (($dest =~ m{^/enc/}) || ($dest =~ /(\?|\&)symb=.+___\d+___.+/)) {                                           unless (($dest =~ m{^/enc/}) || ($dest =~ /(\?|\&)symb=.+___\d+___.+/)) {
                                             if (($destsymb ne '') && ($destsymb !~ m{^/enc/})) {                                              if (($destsymb ne '') && ($destsymb !~ m{^/enc/})) {
                                                 my $esc_symb = &escape($destsymb);                                                  my $esc_symb = &escape($destsymb);
                                                 $dest .= (($dest =~/\?/)? '&':'?').'symb='.$esc_symb;                                                  $dest .= (($dest =~/\?/)? '&':'?').'symb='.$esc_symb;
                                             }                                              }
                                         }                                          }
                                         $msg = '<p>'.&mt('Entering [_1] ...',  
                                                          $env{'course.'.$cdom.'_'.$cnum.'.description'}).  
                                                '</p>';  
                                         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'}) {
                                               $msg = '<p>'.&mt('Entering [_1] ...',
                                                                $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                                      '</p>';
                                           }
                                         &finish_loading_course($r,$msg,$dest);                                          &finish_loading_course($r,$msg,$dest);
                                         $r->rflush();                                          $r->rflush();
                                         return OK;                                          return OK;
Line 1027  ENDCLOSE Line 937  ENDCLOSE
                                                    '</p>';                                                     '</p>';
                                             &finish_loading_course($r,$msg,'/adm/whatsnew?refpage=start');                                              &finish_loading_course($r,$msg,'/adm/whatsnew?refpage=start');
                                             $r->rflush();                                              $r->rflush();
                                             return OK;      return OK;
  }   }
     }      }
  }   }
                                 # Are we allowed to look at the first resource?                                  # Are we allowed to look at the first resource?
                                 #                                  #
                                 # $furl returned by lonuserstate::readmap() has format:                                  # $furl returned by lonuserstate::readmap() has format:
                                 # $url?symb=escaped($symb). If the resource has the                                  # $url?symb=escaped($symb). If the resource has the 
                                 # encrypturl parameter in effect, the entire string                                  # encrypturl parameter in effect, the entire string
                                 # $url?symb=escaped($symb) is encrypted as a string                                  # $url?symb=escaped($symb) is encrypted as a string
                                 # beginning /enc/.                                  # beginning /enc/.
                                 #                                  # 
                                 my ($access,$unencfurl,$unencsymb);                                  my ($access,$unencfurl,$unencsymb);
                                 if ($furl =~ m{^(.+)(?:\?|\&)symb=([^&]+)(?:$|&)}) {                                  if ($furl =~ m{^(.+)(?:\?|\&)symb=([^&]+)(?:$|&)}) {
                                     my ($poss_url,$poss_symb) = ($1,$2);                                      my ($poss_url,$poss_symb) = ($1,$2);
Line 1071  ENDCLOSE Line 981  ENDCLOSE
                                         $furl = '/adm/navmaps?showOnlyHomework=1';                                          $furl = '/adm/navmaps?showOnlyHomework=1';
                                     }                                      }
                                 }                                  }
                                 $msg = '<p>'.&mt('Entering [_1] ...',                                  if ($env{'request.lti.login'}) {
          $env{'course.'.$cdom.'_'.$cnum.'.description'}).                                      undef($msg);
                                        '</p>';                                      &finish_loading_course($r,$msg,$furl);
                                 &finish_loading_course($r,$msg,$furl);                                  } else {
                                       $msg = '<p>'.&mt('Entering [_1] ...',
                 $env{'course.'.$cdom.'_'.$cnum.'.description'}).
                                              '</p>';
                                       &finish_loading_course($r,$msg,$furl);
                                   }
     }      }
                             $r->rflush();                              $r->rflush();
                             return OK;      return OK;
  }   }
     }      }
                     #                      #
Line 1142  ENDCLOSE Line 1057  ENDCLOSE
         $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 1157  ENDCLOSE Line 1068  ENDCLOSE
     if ($domdefs{'catauth'}) {      if ($domdefs{'catauth'}) {
         $cattype = $domdefs{'catauth'};          $cattype = $domdefs{'catauth'};
     }      }
     my ($funcs,$crumbsright);      my $placementonly;
     unless (($norolelist) && ((split(/:/,$env{'user.error.msg'}))[2])) {      if ($showcount == 1) {
           if ($env{'request.course.id'}) {
               if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') {
                   $placementonly = 1;
               }
           } else {
               foreach my $rolecode (keys(%roles_in_env)) {
                   my ($cid) = ($rolecode =~ m{^\Quser.role.st./\E($match_domain/$match_courseid)(?:/|$)});
                   if ($cid) {
                       my %coursedescription =
                           &Apache::lonnet::coursedescription($cid,{'one_time' => '1'});
                       if ($coursedescription{'type'} eq 'Placement') {
                           $placementonly = 1;
                       }
                       last;
                   }
               }
           }
       }
       my ($start_page,$funcs);
       if ($placementonly) {
           $start_page=&Apache::loncommon::start_page($pagetitle,undef,
                                                     {bread_crumbs=>$brcrum,crstype=>'Placement'});
       } else {
         $funcs = &get_roles_functions($showcount,$cattype);          $funcs = &get_roles_functions($showcount,$cattype);
           my $crumbsright;
         if ($env{'browser.mobile'}) {          if ($env{'browser.mobile'}) {
             $crumbsright = $funcs;              $crumbsright = $funcs;
             undef($funcs);              undef($funcs);
         }          }
           $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum,
                                                                        bread_crumbs_component=>$crumbsright});
     }      }
     my $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum,  
                                                                     bread_crumbs_component=>$crumbsright});  
     &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 1200  function rolesView (caller) { Line 1135  function rolesView (caller) {
         document.rolechoice.display.value = caller;          document.rolechoice.display.value = caller;
     } else {      } else {
         if ((caller == 'doupdate') || (caller == 'requestauthor') ||          if ((caller == 'doupdate') || (caller == 'requestauthor') ||
             (caller == 'queued')) {              (caller == 'queued')) { 
             document.rolechoice.state.value = caller;              document.rolechoice.state.value = caller;
         }          }
     }      }
Line 1270  ENDHEADER Line 1205  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>'.
         if ($error && $norolelist) {    &Apache::loncommon::end_page());
             $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 1292  ENDHEADER Line 1219  ENDHEADER
             }              }
             if ($hotlist) {              if ($hotlist) {
                 $showresult .= $hotlist;                  $showresult .= $hotlist;
             }              } 
             $showresult .= '</div>';              $showresult .= '</div>';
             $r->print($showresult);              $r->print($showresult);
         } elsif ($env{'form.state'} eq 'queued') {          } elsif ($env{'form.state'} eq 'queued') {
Line 1308  ENDHEADER Line 1235  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 1327  ENDHEADER Line 1244  ENDHEADER
                       \%sortrole,\%roleclass,\%futureroles,\%timezones,$loncaparev);                        \%sortrole,\%roleclass,\%futureroles,\%timezones,$loncaparev);
     $refresh = $now;      $refresh = $now;
     &Apache::lonnet::appenv({'user.refresh.time'  => $refresh});      &Apache::lonnet::appenv({'user.refresh.time'  => $refresh});
     if ((($cattype eq 'std') || ($cattype eq 'domonly')) && (!$env{'user.adv'})) {      if ($countactive == 1) {
           if ($env{'request.course.id'}) {
               if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') {
                   $placementonly = 1;
               }
           } elsif ($possiblerole) {
               if ($possiblerole =~ m{^st\./($match_domain)/($match_courseid)(?:/|$)}) {
                   if ($env{'course.'.$1.'_'.$2.'.type'} eq 'Placement') {
                       $placementonly = 1;
                   }
               }
           }
       }
       if ((($cattype eq 'std') || ($cattype eq 'domonly')) && (!$env{'user.adv'}) &&
             (!$placementonly)) {
         if ($countactive > 0) {          if ($countactive > 0) {
             my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');              my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
             my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');               my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); 
Line 1404  ENDHEADER Line 1335  ENDHEADER
         }          }
         $r->print(&Apache::loncommon::end_page());          $r->print(&Apache::loncommon::end_page());
  return OK;   return OK;
       } elsif (($placementonly) && ($env{'request.role'} eq 'cm')) {
    $r->print('<h3>'.&mt('Please stand by.').'</h3>
             <input type="hidden" name="'.$possiblerole.'" value="1" />
                     <noscript><br />
                     <input type="submit" name="submit" value="'.&mt('Continue').'" />
                     </noscript></form>');
    $r->rflush();
    $r->print('<script type="text/javascript">document.forms.rolechoice.submit();</script>');
    $r->print(&Apache::loncommon::end_page());
    return OK;
     }      }
 # ----------------------------------------------------------------------- Table  # ----------------------------------------------------------------------- Table
   
Line 1551  sub gather_roles { Line 1492  sub gather_roles {
     my $advanced = $env{'user.adv'};      my $advanced = $env{'user.adv'};
     my $tryagain = $env{'form.tryagain'};      my $tryagain = $env{'form.tryagain'};
     my @ids = &Apache::lonnet::current_machine_ids();      my @ids = &Apache::lonnet::current_machine_ids();
       my (%willtrust,%trustchecked);
     if (ref($roles_in_env) eq 'HASH') {      if (ref($roles_in_env) eq 'HASH') {
         my %adhocdesc;          my %adhocdesc;
         foreach my $envkey (sort(keys(%{$roles_in_env}))) {          foreach my $envkey (sort(keys(%{$roles_in_env}))) {
Line 1619  sub gather_roles { Line 1561  sub gather_roles {
                 if (($role eq 'ca') || ($role eq 'aa')) {                  if (($role eq 'ca') || ($role eq 'aa')) {
                     my $home = &Apache::lonnet::homeserver($trest,$tdom);                      my $home = &Apache::lonnet::homeserver($trest,$tdom);
                     my $allowed=0;                      my $allowed=0;
                       my $prohibited;
                     foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }                      foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
                     if (!$allowed) {                      if (!$allowed) {
                         $button=0;                          $button=0;
                         $switchserver='otherserver='.$home.'&amp;role='.$trolecode;                          unless ($trustchecked{$tdom}) {
                               if ((&Apache::lonnet::will_trust('othcoau',$env{'user.domain'},$tdom)) &&
                                   (&Apache::lonnet::will_trust('coaurem',$tdom,$env{'user.domain'}))) {
                                   $willtrust{$tdom} = 1;
                                   $trustchecked{$tdom} = 1;
                               }
                           } 
                           if ($willtrust{$tdom}) {
                               $switchserver='otherserver='.$home.'&amp;role='.$trolecode;
                           } else {
                               $prohibited = 1;
                               $tremark .= &mt('Session switch required but prohibited.');
                           }
                     }                      }
                     #next if ($home eq 'no_host');                      #next if ($home eq 'no_host');
                     $home = &Apache::lonnet::hostname($home);                      $home = &Apache::lonnet::hostname($home);
Line 1631  sub gather_roles { Line 1586  sub gather_roles {
                         ': '.$tdom.'<br />'.                          ': '.$tdom.'<br />'.
                         ' '.&mt('Server').':&nbsp;'.$home;                          ' '.&mt('Server').':&nbsp;'.$home;
                     $env{'course.'.$tdom.'_'.$trest.'.description'}='ca';                      $env{'course.'.$tdom.'_'.$trest.'.description'}='ca';
                     $tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$trest.'/');                      unless ($prohibited) {
                           $tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$trest.'/');
                       }
                     $sortkey=$role."$trest:$tdom";                      $sortkey=$role."$trest:$tdom";
                 } elsif ($role eq 'au') {                  } elsif ($role eq 'au') {
                     # Authors                      # Authors
Line 1730  sub gather_roles { Line 1687  sub gather_roles {
                             $skipcal = 1;                              $skipcal = 1;
                         }                          }
                     }                      }
                       if ($ttype eq 'Placement') {
                           $ttype = 'Placement Test';
                       }
                     if ($tsection) {                      if ($tsection) {
                         $twhere.='<br />'.&mt('Section').': '.$tsection;                          $twhere.='<br />'.&mt('Section').': '.$tsection;
                     }                      }
Line 1845  sub roletable_headers { Line 1805  sub roletable_headers {
 }  }
   
 sub roletypes {  sub roletypes {
     my @types = ('Domain','Authoring Space','Course','Community','Unavailable','System');      my @types = ('Domain','Authoring Space','Course','Placement Test','Community','Unavailable','System');
     return @types;       return @types; 
 }  }
   
Line 1907  sub findcourse_advice { Line 1867  sub findcourse_advice {
  <li>'.&mt('You are in a section of course for which automatic enrollment in the corresponding LON-CAPA course is not active.').'</li>   <li>'.&mt('You are in a section of course for which automatic enrollment in the corresponding LON-CAPA course is not active.').'</li>
  <li>'.&mt('The start date for automated enrollment has yet to be reached.').'</li>   <li>'.&mt('The start date for automated enrollment has yet to be reached.').'</li>
  <li>'.&mt('You registered for the course recently and there is a time lag between the time you register, and the time this information becomes available for the update of LON-CAPA course rosters.').'</li>   <li>'.&mt('You registered for the course recently and there is a time lag between the time you register, and the time this information becomes available for the update of LON-CAPA course rosters.').'</li>
  <li>'.&mt('Automated enrollment added you to the course in the time since you last logged-in.').' '.&mt('If that is the case you can use the "Check for changes" link in the gray Functions bar to update the list of your available course roles.').'</li>   <li>'.&mt('Automated enrollment added you to the course in the time since you last logged-in.').' '.&mt('If that is the case you can use the "Check for changes" link in the gray Functions bar to update the list of your available course roles.').'</li>   
  </ul></p>');   </ul></p>');
     } else {      } else {
         $r->print('<p>'.&mt('If you were expecting to see an active role listed for a particular course, that course may not have been created yet.').'</p>');          $r->print('<p>'.&mt('If you were expecting to see an active role listed for a particular course, that course may not have been created yet.').'</p>');
         if ($elapsed > 600) {          if ($elapsed > 600) {
             $r->print('<p>'.&mt('You may also have been assigned to a course in the time since you last logged-in, or checked for changes.').              $r->print('<p>'.&mt('You may also have been assigned to a course in the time since you last logged-in, or checked for changes').
                       '<br />'.                        '<br />'.
                       &mt('If that is the case you can use the "Check for changes" link in the gray Functions bar to update the list of your available course roles.').'</p>');                        &mt('If that is the case you can use the "Check for changes" link in the gray Functions bar to update the list of your available course roles.').'</p>');
         }          }  
     }      }
     if (($cattype eq 'std') || ($cattype eq 'domonly')) {      if (($cattype eq 'std') || ($cattype eq 'domonly')) {
         $r->print('<h3>'.&mt('Self-Enrollment').'</h3>'.          $r->print('<h3>'.&mt('Self-Enrollment').'</h3>'.
Line 2108  sub build_roletext { Line 2068  sub build_roletext {
                         $trolecode."','".$buttonname.'\');" /></td>';                          $trolecode."','".$buttonname.'\');" /></td>';
         }          }
     }      }
     if (($trolecode !~ m/^(dc|ca|au|aa)\./) && (!$skipcal)) {      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 2146  sub check_for_adhoc { Line 2106  sub check_for_adhoc {
     my $numdc = 0;      my $numdc = 0;
     my $numhelpdesk = 0;      my $numhelpdesk = 0;
     my $numadhoc = 0;      my $numadhoc = 0;
     my $num_custom_adhoc = 0;      my $num_custom_adhoc = 0; 
     if (($env{'user.adv'}) || ($env{'user.rar'})) {      if (($env{'user.adv'}) || ($env{'user.rar'})) {
         foreach my $envkey (sort(keys(%env))) {          foreach my $envkey (sort(keys(%env))) {
             if ($envkey=~/^user\.role\.(dc|dh|da)\.\/($match_domain)\/$/) {              if ($envkey=~/^user\.role\.(dc|dh|da)\.\/($match_domain)\/$/) {
Line 2365  sub display_cc_role { Line 2325  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;                   $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;
Line 2390  sub display_curr_role { Line 2350  sub display_curr_role {
             my $ttype = $env{'course.'.$cid.'.type'};              my $ttype = $env{'course.'.$cid.'.type'};
             my $skipcal = 1;              my $skipcal = 1;
             my $tbg='LC_roles_is';              my $tbg='LC_roles_is';
             my $twhere = $env{'course.'.$cid.'.description'}.              my $twhere = $env{'course.'.$cid.'.description'}. 
                         ' <span class="LC_fontsize_small">'.                          ' <span class="LC_fontsize_small">'.
                         &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$cnum,$cdom).                          &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$cnum,$cdom).
                         '</span>';                          '</span>';
Line 2436  sub adhoc_customroles_row { Line 2396  sub adhoc_customroles_row {
     if ($tstart && $tstart>$limit) { $liverole = 0; }      if ($tstart && $tstart>$limit) { $liverole = 0; }
     if ($tend   && $tend  <$limit) { $liverole = 0; }      if ($tend   && $tend  <$limit) { $liverole = 0; }
     return unless ($liverole);      return unless ($liverole);
     my %domdefaults = &Apache::lonnet::get_domain_defaults($dhdom);      my %domdefaults = &Apache::lonnet::get_domain_defaults($dhdom); 
     if (ref($domdefaults{'adhocroles'}) eq 'HASH') {      if (ref($domdefaults{'adhocroles'}) eq 'HASH') {
         if (scalar(keys(%{$domdefaults{'adhocroles'}})) > 0) {          if (scalar(keys(%{$domdefaults{'adhocroles'}})) > 0) {
             return &Apache::loncommon::continue_data_table_row()              return &Apache::loncommon::continue_data_table_row()
Line 2766  sub update_session_roles { Line 2726  sub update_session_roles {
             &curr_role_status($currstart,$currend,$refresh,$update);              &curr_role_status($currstart,$currend,$refresh,$update);
         my ($rolekey) = ($envkey =~ /^user\.role\.(.+)$/);          my ($rolekey) = ($envkey =~ /^user\.role\.(.+)$/);
         my ($role,$rest)=split(m{\./},$rolekey,2);          my ($role,$rest)=split(m{\./},$rolekey,2);
         $rest = '/'.$rest;           $rest = '/'.$rest;
         if (&Apache::lonnet::delenv($envkey,undef,[$role])) {          if (&Apache::lonnet::delenv($envkey,undef,[$role])) {
             if ($status_in_env eq 'active') {              if ($status_in_env eq 'active') {
                 if ($role eq 'gr') {                  if ($role eq 'gr') {
Line 2966  sub update_session_roles { Line 2926  sub update_session_roles {
                         }                          }
                         my $groupdesc;                          my $groupdesc;
                         unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {                          unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {
                             %{$curr_groups{$cdom.'_'.$cnum}} =                              %{$curr_groups{$cdom.'_'.$cnum}} = 
                                 &Apache::longroup::coursegroups($cdom,$cnum);                                  &Apache::longroup::coursegroups($cdom,$cnum);
                         }                          }
                         unless ((ref($groupdescs{$cdom.'_'.$cnum}) eq 'HASH') &&                          unless ((ref($groupdescs{$cdom.'_'.$cnum}) eq 'HASH') &&
                             ($groupdescs{$cdom.'_'.$cnum}{$group})) {                              ($groupdescs{$cdom.'_'.$cnum}{$group})) {
   
                             my %groupinfo =                              my %groupinfo = 
                                 &Apache::longroup::get_group_settings($curr_groups{$cdom.'_'.$cnum}{$group});                                  &Apache::longroup::get_group_settings($curr_groups{$cdom.'_'.$cnum}{$group});
                             $groupdescs{$cdom.'_'.$cnum}{$group} =                              $groupdescs{$cdom.'_'.$cnum}{$group} = 
                                 &unescape($groupinfo{'description'});                                  &unescape($groupinfo{'description'});
                         }                          }
                         $groupdesc = $groupdescs{$cdom.'_'.$cnum}{$group};                          $groupdesc = $groupdescs{$cdom.'_'.$cnum}{$group};
Line 3093  sub update_session_roles { Line 3053  sub update_session_roles {
                 my $cdom = $env{'course.'.$cid.'.domain'};                  my $cdom = $env{'course.'.$cid.'.domain'};
                 my $cnum = $env{'course.'.$cid.'.num'};                  my $cnum = $env{'course.'.$cid.'.num'};
                 my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);                  my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
                 my %groupdesc;                  my %groupdesc; 
                 if (ref($groupchange{$crs}) eq 'HASH') {                  if (ref($groupchange{$crs}) eq 'HASH') {
                     $groupchgmsg .= '<li>'.&mt('Course/Community: [_1]','<b>'.$crsdesc.'</b><ul>');                      $groupchgmsg .= '<li>'.&mt('Course/Community: [_1]','<b>'.$crsdesc.'</b><ul>');
                     foreach my $group (sort(keys(%{$groupchange{$crs}}))) {                      foreach my $group (sort(keys(%{$groupchange{$crs}}))) {
Line 3326  sub get_queued { Line 3286  sub get_queued {
             if (ref($history{'details'}) eq 'HASH') {              if (ref($history{'details'}) eq 'HASH') {
                 $description = $history{details}{'cdescr'};                  $description = $history{details}{'cdescr'};
             }              }
             @{$reqcrs{$reqtime}} = ($description,$showtype);              @{$reqcrs{$reqtime}} = ($description,$showtype); 
         }          }
     }      }
     my @sortedtimes = sort {$a <=> $b} (keys(%reqcrs));      my @sortedtimes = sort {$a <=> $b} (keys(%reqcrs));
Line 3389  sub get_queued { Line 3349  sub get_queued {
            $output.'</fieldset></div><br clear="all" />';             $output.'</fieldset></div><br clear="all" />';
 }  }
   
 sub set_deeplink_target {  sub process_lti {
     my ($cnum,$cdom) = @_;      my ($r,$cdom,$cnum) = @_;
     if (($cnum ne '') && ($cdom ne '')) {      my %lti = &Apache::lonnet::get_domain_lti($cdom,'provider');
         my $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);      my $uriscope = &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},
         if ($deeplink_symb ne '') {                                                            $cdom,$cnum);
             my $deeplink;      my $lonhost = $r->dir_config('lonHostID');
             if ($deeplink_symb =~ /\.(page|sequence)$/) {      my $internet_names = &Apache::lonnet::get_internet_names($lonhost);
                 my $mapname = &Apache::lonnet::deversion((&Apache::lonnet::decode_symb($deeplink_symb))[2]);      if ($env{'request.lti.rosterid'} &&
                 my $navmap = Apache::lonnavmaps::navmap->new();          $env{'request.lti.rosterurl'}) {
                 if (ref($navmap)) {          if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') {
                     $deeplink = $navmap->get_mapparam(undef,$mapname,'0.deeplink');              if ($lti{$env{'request.lti.login'}}{'roster'}) {
                 }                  my @lcroles = ('in','ta','ep','st');
             } elsif ($deeplink_symb ne '') {                  my @possibleroles;
                 $deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$deeplink_symb);                  foreach my $role (@lcroles) {
             }                      if (&Apache::lonnet::allowed('c'.$role,"$cdom/$cnum")) {
             if ($deeplink ne '') {                          push(@possibleroles,$role);
                 my ($state,$others,$listed,$scope,$protect,$display,$target) = split(/,/,$deeplink);                      }
                 if ($target ne '') {                  }
                     &Apache::lonnet::appenv({'request.deeplink.target' => $target});                  my $owner = $env{'course.'.$cdom.'_'.$cnum.'.internal.courseowner'};
                 } elsif (exists($env{'request.deeplink.target'})) {                  if ($owner eq $env{'user.name'}.':'.$env{'user.domain'}) {
                     &Apache::lonnet::delenv('request.deeplink.target');                      my $crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);
                       if ($crstype eq 'Community') {
                           unshift(@possibleroles,'co');
                       } else {
                           unshift(@possibleroles,'cc');
                       }
                   }
                   if (@possibleroles) {
                       push(@{$rosterupdates},{cid        => $cdom.'_'.$cnum,
                                               lti        => $env{'request.lti.login'},
                                               ltiref     => $lti{$env{'request.lti.login'}},
                                               id         => $env{'request.lti.rosterid'},
                                               url        => $env{'request.lti.rosterurl'},
                                               sourcecrs  => $env{'request.lti.sourcecrs'},
                                               uriscope   => $uriscope,
                                               possroles  => \@possibleroles,
                                               intdoms    => $internet_names,
                                              });
                       unless ($registered_cleanup) {
                           my $handlers = $r->get_handlers('PerlCleanupHandler');
                           $r->set_handlers('PerlCleanupHandler' =>
                                            [\&ltienroll,@{$handlers}]);
                           $registered_cleanup=1;
                       }
                 }                  }
             }              }
         }          }
     }      }
       if ($env{'request.lti.passbackid'} &&
           $env{'request.lti.passbackurl'}) {
           if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') {
               if ($lti{$env{'request.lti.login'}}{'passback'}) {
                   my ($pbnum,$error) =
                       &LONCAPA::ltiutils::store_passbackurl($env{'request.lti.login'},
                                                             $env{'request.lti.passbackurl'},
                                                             $cdom,$cnum);
                   if ($pbnum eq '') {
                       $pbnum = $env{'request.lti.passbackurl'};
                   }
                   &Apache::lonnet::put('nohist_'.$cdom.'_'.$cnum.'_passback',
                                        {"$uriscope\0$env{'request.lti.sourcecrs'}\0$env{'request.lti.login'}" =>
                                        "$pbnum\0$env{'request.lti.passbackid'}"});
               }
           }
       }
     return;      return;
 }  }
   
   sub ltienroll {
       if (ref($rosterupdates) eq 'ARRAY') {
           foreach my $item (@{$rosterupdates}) {
               if (ref($item) eq 'HASH') {
                   &LONCAPA::ltiutils::batchaddroster($item);
               }
           }
       }
   }
   
 1;  1;
 __END__  __END__
   
Removed from v.1.269.2.39.2.4  
changed lines
  Added in v.1.353

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.