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

Diff for /loncom/auth/lonroles.pm between versions 1.336 and 1.337

version 1.336, 2018/01/09 15:44:43 version 1.337, 2018/04/28 00:57:58
Line 153  sub redirect_user { Line 153  sub redirect_user {
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
   
     # 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
 <p>$msg</p>  
 $end_page  $end_page
 ENDREDIR  ENDREDIR
     return;      return;
Line 738  ENDENTERKEY Line 744  ENDENTERKEY
                                                 $dest .= (($dest =~/\?/)? '&':'?').'symb='.$esc_symb;                                                  $dest .= (($dest =~/\?/)? '&':'?').'symb='.$esc_symb;
                                             }                                              }
                                         }                                          }
                                         &redirect_user($r, &mt('Entering [_1]',                                          my $title;
                                                        $env{'course.'.$cdom.'_'.$cnum.'.description'}),                                          unless ($env{'request.lti.login'}) {
                                                        $dest, $msg);                                              $title = &mt('Entering [_1]',
                                                            $env{'course.'.$cdom.'_'.$cnum.'.description'});
                                           }
                                           &redirect_user($r,$title,$dest,$msg);
                                         return OK;                                          return OK;
                                     }                                      }
     if (&Apache::lonnet::allowed('whn',      if (&Apache::lonnet::allowed('whn',
Line 778  ENDENTERKEY Line 787  ENDENTERKEY
                                 } elsif ($access eq 'B') {                                  } elsif ($access eq 'B') {
                                     $furl = '/adm/navmaps?showOnlyHomework=1';                                      $furl = '/adm/navmaps?showOnlyHomework=1';
                                 }                                  }
                                 $msg = &mt('Entering [_1] ...',                                  my $title;
    $env{'course.'.$cdom.'_'.$cnum.'.description'});                                  if ($env{'request.lti.login'}) {
  &redirect_user($r, &mt('Entering [_1]',                                      undef($msg);
                                $env{'course.'.$cdom.'_'.$cnum.'.description'}),                                  } else {
                                $furl, $msg);                                      $title = &mt('Entering [_1]',
                                                    $env{'course.'.$cdom.'_'.$cnum.'.description'});
                                       $msg = &mt('Entering [_1] ...',
          $env{'course.'.$cdom.'_'.$cnum.'.description'});
                                   }
    &redirect_user($r,$title,$furl,$msg);
     }      }
     return OK;      return OK;
  }   }
Removed from v.1.336  
changed lines
  Added in v.1.337

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