version 1.5, 2009/11/19 15:22:20
|
version 1.6, 2009/12/24 18:24:47
|
Line 199 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 206 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 |