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 |