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

raeburn raeburn@source.lon-capa.org
Fri, 13 Aug 2010 00:06:27 -0000


raeburn		Fri Aug 13 00:06:27 2010 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/auth	switchserver.pm 
  Log:
  - For 2.10, reverse changes in 1.23, 1.24 and 1.25.
    - Remote Control still retained for LON-CAPA 2.10.
  
  
Index: loncom/auth/switchserver.pm
diff -u loncom/auth/switchserver.pm:1.28 loncom/auth/switchserver.pm:1.28.2.1
--- loncom/auth/switchserver.pm:1.28	Thu Jul 22 21:44:25 2010
+++ loncom/auth/switchserver.pm	Fri Aug 13 00:06:27 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Switch Servers Handler
 #
-# $Id: switchserver.pm,v 1.28 2010/07/22 21:44:25 raeburn Exp $
+# $Id: switchserver.pm,v 1.28.2.1 2010/08/13 00:06:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -59,6 +59,7 @@
     my $start_page = 
 	&Apache::loncommon::start_page('Switching Server ...',undef,
 				       {'redirect'       => [0.5,$url],
+                                        'no_inline_link' => 1,
 					'only_body'      => $only_body,});
     my $end_page   = &Apache::loncommon::end_page();
     $r->print($start_page.$extra_text.$end_page);
@@ -159,7 +160,10 @@
 	return OK;
     }
 # -------------------------------------------------------- Menu script and info
-	   
+
+    my $windowinfo=
+        &Apache::lonmenu::close().
+        &Apache::lonnavmaps::close();
 # ---------------------------------------------------------------- Get handover
 
     my %info=('ip'       => $ENV{'REMOTE_ADDR'},
@@ -186,7 +190,7 @@
 	'&token='.$token;
 # --------------------------------------------------------------- Screen Output
     &Apache::lonnet::flushcourselogs();
-    return &do_redirect($r, $url, 0);
+    return &do_redirect($r,$url,0,$windowinfo);
 }
 
 1;