[LON-CAPA-cvs] cvs: loncom(version_2_10_X) /auth lonlogout.pm

raeburn raeburn at source.lon-capa.org
Sun Jan 8 18:35:22 EST 2012


raeburn		Sun Jan  8 23:35:22 2012 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/auth	lonlogout.pm 
  Log:
  - Backport 1.44.
  
  
Index: loncom/auth/lonlogout.pm
diff -u loncom/auth/lonlogout.pm:1.42.2.2 loncom/auth/lonlogout.pm:1.42.2.3
--- loncom/auth/lonlogout.pm:1.42.2.2	Sat Nov 19 19:10:34 2011
+++ loncom/auth/lonlogout.pm	Sun Jan  8 23:35:22 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Logout Handler
 #
-# $Id: lonlogout.pm,v 1.42.2.2 2011/11/19 19:10:34 raeburn Exp $
+# $Id: lonlogout.pm,v 1.42.2.3 2012/01/08 23:35:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -120,11 +120,21 @@
                      $login_url = $domdefaults{'portal_def'};
                  } else {
                      my $checkloginvia = 1;
-                     my ($lonhost,$server,$path) = 
+                     my ($lonhost,$server,$path,$isredirect) = 
                          &Apache::lonnet::choose_server($domain,$checkloginvia);
                      if ($server && $lonhost) {
                          $login_url = $Apache::lonnet::protocol{$lonhost}.
                                       '://'.$server.$path;
+                         if (($path eq '') && (!$isredirect)) {
+                             my $serverhomeID =
+                                 &Apache::lonnet::get_server_homeID($lonhost);
+                             my $serverhomedom =
+                                 &Apache::lonnet::host_domain($serverhomeID);
+                             if ($serverhomedom ne $domain) {
+                                 $path = '/adm/login';
+                                 $login_url .= $path;
+                             }
+                         }
                          if ($path eq '/adm/login' && $domain ne '') {
                              $login_url .= '?domain='.$domain;
                          }




More information about the LON-CAPA-cvs mailing list