|
version 1.4, 2009/10/03 01:41:27
|
version 1.6, 2009/12/24 18:24:47
|
|
Line 139 sub handler {
|
Line 139 sub handler {
|
| my $version = $r->dir_config('lonVersion'); |
my $version = $r->dir_config('lonVersion'); |
| my $host_name = &Apache::lonnet::hostname($lonhost); |
my $host_name = &Apache::lonnet::hostname($lonhost); |
| if ($domain eq 'gcitest') { |
if ($domain eq 'gcitest') { |
| |
$lonhost = 'gcitestl1'; |
| |
$host_name = 'gcitest.lite.msu.edu'; |
| $sitename = 'GCI Testing Center'; |
$sitename = 'GCI Testing Center'; |
| $shortsitename = 'Testing Center'; |
$shortsitename = 'Testing Center'; |
| $existing = 'Student with Testing Center account?'; |
$existing = 'Student with Testing Center account?'; |
|
Line 197 sub handler {
|
Line 199 sub handler {
|
| if ($env{'form.role'}) { |
if ($env{'form.role'}) { |
| $tokenextras = '&role='.&escape($env{'form.role'}); |
$tokenextras = '&role='.&escape($env{'form.role'}); |
| } |
} |
| |
if ($domain eq 'gci') { |
| |
$env{'form.symb'} = '/adm/gci_info'; |
| |
} |
| if ($env{'form.symb'}) { |
if ($env{'form.symb'}) { |
| if (!$tokenextras) { |
if (!$tokenextras) { |
| $tokenextras = '&'; |
$tokenextras = '&'; |
|
Line 204 sub handler {
|
Line 209 sub handler {
|
| $tokenextras .= '&symb='.&escape($env{'form.symb'}); |
$tokenextras .= '&symb='.&escape($env{'form.symb'}); |
| } |
} |
| my $logtoken=Apache::lonnet::reply( |
my $logtoken=Apache::lonnet::reply( |
| 'tmpput:'.$ukey.$lkey.'&'.$firsturl, |
'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras, |
| $lonhost); |
$lonhost); |
| |
|
| # ------------------- If we cannot talk to ourselves, we are in serious trouble |
# ------------------- If we cannot talk to ourselves, we are in serious trouble |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / modules / gci