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

Diff for /loncom/lontrans.pm between versions 1.14.10.2.2.1 and 1.14.10.2.2.4

version 1.14.10.2.2.1, 2022/01/02 20:43:50 version 1.14.10.2.2.4, 2023/07/05 19:22:09
Line 30  package Apache::lontrans; Line 30  package Apache::lontrans;
   
 use strict;  use strict;
 use Apache::Constants qw(:common :remotehost);  use Apache::Constants qw(:common :remotehost);
 use Apache::lonnet();  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::File();  use Apache::File();
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     # FIXME line remove when mod_perl fixes BUG#4948       # FIXME line remove when mod_perl fixes BUG#4948
     $r->notes->set('error-notes' => '');      $r->notes->set('error-notes' => '');
       if (($r->uri eq '/adm/service/passback') ||
           ($r->uri eq '/adm/service/roster')) {
           return OK;
       }
     my $alias = &Apache::lonnet::get_proxy_alias();      my $alias = &Apache::lonnet::get_proxy_alias();
     if ($alias) {      if ($alias) {
         my $hdrhost = $r->headers_in->get('Host');          my $hdrhost = $r->headers_in->get('Host');
Line 214  sub set_token { Line 218  sub set_token {
             my %link_info = &Apache::lonnet::tmpget($info{'ltoken'});              my %link_info = &Apache::lonnet::tmpget($info{'ltoken'});
             if ($link_info{'linkprot'}) {              if ($link_info{'linkprot'}) {
                 $info{'linkprot'} = $link_info{'linkprot'};                  $info{'linkprot'} = $link_info{'linkprot'};
                   foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                       if ($link_info{$item} ne '') {
                           $info{$item} = $link_info{$item};
                       }
                   }
             }              }
             &Apache::lonnet::tmpdel($info{'ltoken'});;              &Apache::lonnet::tmpdel($info{'ltoken'});
             delete($info{'ltoken'});              delete($info{'ltoken'});
         }          }
         unless ($info{'role'}) {          unless ($info{'role'}) {
Removed from v.1.14.10.2.2.1  
changed lines
  Added in v.1.14.10.2.2.4

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