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

Diff for /loncom/auth/lonroles.pm between versions 1.338 and 1.342

version 1.338, 2018/05/28 23:26:12 version 1.342, 2018/12/27 20:10:44
Line 272  sub handler { Line 272  sub handler {
   
 # ================================================================== 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 715  ENDENTERKEY Line 721  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) {
                                                     my $hostname = $r->hostname();                                                      unless (&Apache::lonnet::uses_sts()) {
                                                     if ($hostname ne '') {                                                          my $hostname = $r->hostname();
                                                         $dest = 'http://'.$hostname.$dest;                                                          if ($hostname ne '') {
                                                               $dest = 'http://'.$hostname.$dest;
                                                           }
                                                     }                                                      }
                                                 }                                                  }
                                             }                                              }
Line 1360  sub gather_roles { Line 1368  sub gather_roles {
                     if (!$allowed) {                      if (!$allowed) {
                         $button=0;                          $button=0;
                         unless ($trustchecked{$tdom}) {                          unless ($trustchecked{$tdom}) {
                             if ((&Apache::lonnet::will_trust('othcoau',$tdom,$env{'user.domain'})) &&                              if ((&Apache::lonnet::will_trust('othcoau',$env{'user.domain'},$tdom)) &&
                                 (&Apache::lonnet::will_trust('coremau',$env{'user.domain'},$tdom))) {                                  (&Apache::lonnet::will_trust('coaurem',$tdom,$env{'user.domain'}))) {
                                 $willtrust{$tdom} = 1;                                  $willtrust{$tdom} = 1;
                                 $trustchecked{$tdom} = 1;                                  $trustchecked{$tdom} = 1;
                             }                              }
Removed from v.1.338  
changed lines
  Added in v.1.342

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