Diff for /loncom/auth/switchserver.pm between versions 1.18 and 1.21

version 1.18, 2007/11/14 02:54:11 version 1.21, 2007/11/15 01:17:16
Line 92  sub handler { Line 92  sub handler {
   
     if ($env{'user.name'} eq 'public'      if ($env{'user.name'} eq 'public'
  && $env{'user.domain'} eq 'public') {   && $env{'user.domain'} eq 'public') {
  my $url = 'http://'.$switch_to.'/'.$r->uri;   my $url = 'http://'.$switch_to.$r->uri;
  return &do_redirect($r,$url,1)   return &do_redirect($r,$url,1)
     }      }
   
Line 115  sub handler { Line 115  sub handler {
     -value   => '',      -value   => '',
     -expires => '-10y',);      -expires => '-10y',);
     $r->header_out('Set-cookie' => $c);      $r->header_out('Set-cookie' => $c);
     $r->send_http_header;  
     return OK if $r->header_only;      if ($r->header_only) {
    $r->send_http_header;
    return OK;
       }
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
         
     my $windowinfo=      my $windowinfo=
Line 138  sub handler { Line 141  sub handler {
     my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});      my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});
     my $url ='http://'.$switch_to.'/adm/login?'.      my $url ='http://'.$switch_to.'/adm/login?'.
  'domain='.$env{'user.domain'}.   'domain='.$env{'user.domain'}.
  '&username='.$env{'user.name'}.   '&username='.$env{'user.name'}.
  '&token='.$token;   '&token='.$token;
 # --------------------------------------------------------------- Screen Output  # --------------------------------------------------------------- Screen Output
     &Apache::lonnet::flushcourselogs();      &Apache::lonnet::flushcourselogs();
     return &do_redirect($r,$url,0,$windowinfo);      return &do_redirect($r,$url,0,$windowinfo);

Removed from v.1.18  
changed lines
  Added in v.1.21


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