--- loncom/auth/migrateuser.pm 2009/04/14 23:52:07 1.15 +++ loncom/auth/migrateuser.pm 2009/07/23 17:40:29 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network # Starts a user off based of an existing token. # -# $Id: migrateuser.pm,v 1.15 2009/04/14 23:52:07 raeburn Exp $ +# $Id: migrateuser.pm,v 1.16 2009/07/23 17:40:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -89,6 +89,11 @@ sub handler { my $extra_env = &sso_check(\%data); + my %form; + if ($data{'symb'} ne '') { + $form{'symb'} = $data{'symb'}; + } + if (!$data{'role'}) { my $handle = &Apache::lonnet::check_for_valid_session($r); if ($handle) { @@ -107,7 +112,7 @@ sub handler { $desturl = $data{'origurl'}; } &Apache::lonauth::success($r,$data{'username'},$data{'domain'}, - $home,$desturl,$extra_env); + $home,$desturl,$extra_env,\%form); } return OK; @@ -118,12 +123,8 @@ sub handler { if ($data{'origurl'} ne '') { $next_url .= '&orgurl='.&escape($data{'origurl'}); } - if ($data{'symb'} ne '') { - $next_url .= '&symb='.&escape($data{'symb'}); - } - &Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home, - $next_url,$extra_env); + $next_url,$extra_env,\%form); return OK; }