--- modules/gci/lonlogin.pm	2009/10/03 01:41:27	1.4
+++ 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.4 2009/10/03 01:41:27 gci Exp $
+# $Id: lonlogin.pm,v 1.6 2009/12/24 18:24:47 gci Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -139,6 +139,8 @@ sub handler {
     my $version = $r->dir_config('lonVersion');
     my $host_name = &Apache::lonnet::hostname($lonhost);
     if ($domain eq 'gcitest') {
+        $lonhost = 'gcitestl1';
+        $host_name = 'gcitest.lite.msu.edu';
         $sitename = 'GCI Testing Center';
         $shortsitename = 'Testing Center';
         $existing = 'Student with Testing Center account?';
@@ -197,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 = '&';
@@ -204,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