--- loncom/auth/switchserver.pm 2005/10/24 21:32:43 1.1
+++ loncom/auth/switchserver.pm 2005/10/24 21:35:16 1.2
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Switch Servers Handler
#
-# $Id: switchserver.pm,v 1.1 2005/10/24 21:32:43 albertel Exp $
+# $Id: switchserver.pm,v 1.2 2005/10/24 21:35:16 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -77,9 +77,6 @@ sub handler {
&Apache::lonnet::log($env{'user.domain'},$env{'user.name'},
$env{'user.home'},
"Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}");
- &Apache::lonnet::logthis(join(' -- ',$env{'user.domain'},$env{'user.name'},
- $env{'user.home'},
- "Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}"));
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
@@ -91,11 +88,10 @@ sub handler {
# ---------------------------------------------------------------- Get handover
my $token = &Apache::lonnet::reply('tmpput:'.join('&',$ENV{'REMOTE_ADDR'},$env{'user.domain'},$env{'user.name'},$env{'form.role'}),$env{'form.otherserver'});
- &Apache::lonnet::logthis("token is $token $switch_to");
my $switch='';
my $bodytag=&Apache::loncommon::bodytag('Switching Server ...');
# --------------------------------------------------------------- Screen Output
- my $doc=(<print(<
The LearningOnline Network with CAPA Logout
$switch
@@ -105,8 +101,7 @@ sub handler {