--- loncom/auth/migrateuser.pm	2006/05/15 17:45:46	1.6
+++ loncom/auth/migrateuser.pm	2006/06/02 19:38:21	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Starts a user off based of an existing token.
 #
-# $Id: migrateuser.pm,v 1.6 2006/05/15 17:45:46 albertel Exp $
+# $Id: migrateuser.pm,v 1.7 2006/06/02 19:38:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -49,6 +49,14 @@ sub goto_login {
 }
 
 
+sub sso_check {
+    my ($data) = @_;
+    if ($data->{'sso.login'}) {
+	&Apache::lonnet::appenv(('request.sso.login' =>
+				 $data->{'sso.login'} ));
+    }
+}
+
 sub handler {
     my ($r) = @_;
     
@@ -74,6 +82,7 @@ sub handler {
     if (!$data{'role'}) {
 	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},
 				  $home,'/adm/roles');
+	&sso_check(\%data);
 	return OK;
     }
 
@@ -82,6 +91,7 @@ sub handler {
     
     &Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,
 			      $next_url);
+    &sso_check(\%data);
     return OK;
 }