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

[albertel]

albertel		Tue Nov 13 21:55:10 2007 EDT

  Modified files:              
    /loncom/auth	switchserver.pm 
  Log:
  - don't insert an extra / into public redirects
  
  
Index: loncom/auth/switchserver.pm
diff -u loncom/auth/switchserver.pm:1.18 loncom/auth/switchserver.pm:1.19
--- loncom/auth/switchserver.pm:1.18	Tue Nov 13 21:54:11 2007
+++ loncom/auth/switchserver.pm	Tue Nov 13 21:55:07 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Switch Servers Handler
 #
-# $Id: switchserver.pm,v 1.18 2007/11/14 02:54:11 albertel Exp $
+# $Id: switchserver.pm,v 1.19 2007/11/14 02:55:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,7 +92,7 @@
 
     if ($env{'user.name'} 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)
     }