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

[albertel]

albertel		Tue Sep 19 16:36:29 2006 EDT

  Modified files:              
    /loncom/auth	lonacc.pm 
  Log:
  - need to undef the The Response phase handler since we have already taken care of the needed output
  
  
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.100 loncom/auth/lonacc.pm:1.101
--- loncom/auth/lonacc.pm:1.100	Tue Sep 19 14:03:02 2006
+++ loncom/auth/lonacc.pm	Tue Sep 19 16:36:27 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Cookie Based Access Handler
 #
-# $Id: lonacc.pm,v 1.100 2006/09/19 18:03:02 albertel Exp $
+# $Id: lonacc.pm,v 1.101 2006/09/19 20:36:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -164,6 +164,7 @@
 	    # machine
 	    &Apache::lonauth::success($r,$user,$domain,$home,'noredirect');
 	    $r->internal_redirect('/adm/switchserver');
+	    $r->set_handlers('PerlHandler'=> undef);
 	} else {
 	    # need to login them in, so generate the need data that
 	    # migrate expects to do login
@@ -178,10 +179,12 @@
 					$r->dir_config('lonHostID'));
 	    $env{'form.token'} = $token;
 	    $r->internal_redirect('/adm/migrateuser');
+	    $r->set_handlers('PerlHandler'=> undef);
 	}
 	return OK;
     } elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) {
 	$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect'));
+	$r->set_handlers('PerlHandler'=> undef);
 	return OK;
     }
     return undef;