[LON-CAPA-cvs] cvs: modules /gci lonlogin.pm

[gci]

gci		Thu Dec 24 18:24:47 2009 EDT

  Modified files:              
    /modules/gci	lonlogin.pm 
  Log:
  - Customization for GCI_3.
    - Welcome page after successful log-in.
  
  
Index: modules/gci/lonlogin.pm
diff -u modules/gci/lonlogin.pm:1.5 modules/gci/lonlogin.pm:1.6
--- modules/gci/lonlogin.pm:1.5	Thu Nov 19 15:22:20 2009
+++ modules/gci/lonlogin.pm	Thu Dec 24 18:24:47 2009
@@ -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 @@
     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 @@
         $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