version 1.17, 2022/09/17 23:38:50
|
version 1.18, 2023/06/02 01:20:26
|
Line 334 sub set_token {
|
Line 334 sub set_token {
|
&Apache::lonnet::tmpdel($env{'form.ltoken'}); |
&Apache::lonnet::tmpdel($env{'form.ltoken'}); |
if ($info{'linkprot'}) { |
if ($info{'linkprot'}) { |
$extras .= '&linkprot='.&escape($info{'linkprot'}); |
$extras .= '&linkprot='.&escape($info{'linkprot'}); |
foreach my $item ('linkprotuser','linkprotexit') { |
foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') { |
if ($info{$item} ne '') { |
if ($info{$item} ne '') { |
$extras .= '&'.$item.'='.&escape($info{$item}); |
$extras .= '&'.$item.'='.&escape($info{$item}); |
} |
} |