version 1.161, 2015/03/03 22:06:55
|
version 1.162, 2015/03/06 20:39:22
|
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 223 sub handler {
|
Line 226 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);
|