version 1.158, 2013/11/26 03:17:09
|
version 1.159, 2014/10/04 02:59:32
|
Line 113 sub handler {
|
Line 113 sub handler {
|
my %sessiondata; |
my %sessiondata; |
if ($env{'form.iptoken'}) { |
if ($env{'form.iptoken'}) { |
%sessiondata = &Apache::lonnet::tmpget($env{'form.iptoken'}); |
%sessiondata = &Apache::lonnet::tmpget($env{'form.iptoken'}); |
my $delete = &Apache::lonnet::tmpdel($env{'form.token'}); |
unless ($sessiondata{'sessionserver'}) { |
|
my $delete = &Apache::lonnet::tmpdel($env{'form.iptoken'}); |
|
delete($env{'form.iptoken'}); |
|
} |
} |
} |
# ----------------------------------------------------------- Process Interface |
# ----------------------------------------------------------- Process Interface |
$env{'form.interface'}=~s/\W//g; |
$env{'form.interface'}=~s/\W//g; |
Line 222 sub handler {
|
Line 225 sub handler {
|
} |
} |
$tokenextras .= '&symb='.&escape($env{'form.symb'}); |
$tokenextras .= '&symb='.&escape($env{'form.symb'}); |
} |
} |
|
if ($env{'form.iptoken'}) { |
|
if (!$tokenextras) { |
|
$tokenextras = '&&'; |
|
} |
|
$tokenextras .= '&iptoken='.&escape($env{'form.iptoken'}); |
|
} |
my $logtoken=Apache::lonnet::reply( |
my $logtoken=Apache::lonnet::reply( |
'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras, |
'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras, |
$lonhost); |
$lonhost); |