![[BACK]](/icons/back.gif){kind=icon}
Return to migrateuser.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth|
Return to migrateuser.pm CVS log | Up to [LON-CAPA] / loncom / auth |
| version 1.14, 2008/09/15 19:08:44 | version 1.15, 2009/04/14 23:52:07 |
|---|---|
| Line 115 sub handler { | Line 115 sub handler { |
| } | } |
| my $next_url='/adm/roles?selectrole=1&'.&escape($data{'role'}).'=1'; | my $next_url='/adm/roles?selectrole=1&'.&escape($data{'role'}).'=1'; |
| 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, | &Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home, |
| $next_url,$extra_env); | $next_url,$extra_env); |