--- modules/gci/lonlogin.pm 2009/11/19 15:22:20 1.5 +++ modules/gci/lonlogin.pm 2009/12/24 18:24:47 1.6 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.5 2009/11/19 15:22:20 gci Exp $ +# $Id: lonlogin.pm,v 1.6 2009/12/24 18:24:47 gci Exp $ # # Copyright Michigan State University Board of Trustees # @@ -199,6 +199,9 @@ sub handler { if ($env{'form.role'}) { $tokenextras = '&role='.&escape($env{'form.role'}); } + if ($domain eq 'gci') { + $env{'form.symb'} = '/adm/gci_info'; + } if ($env{'form.symb'}) { if (!$tokenextras) { $tokenextras = '&'; @@ -206,7 +209,7 @@ sub handler { $tokenextras .= '&symb='.&escape($env{'form.symb'}); } my $logtoken=Apache::lonnet::reply( - 'tmpput:'.$ukey.$lkey.'&'.$firsturl, + 'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras, $lonhost); # ------------------- If we cannot talk to ourselves, we are in serious trouble