version 1.23, 2021/08/12 00:05:27
|
version 1.24, 2021/11/03 01:04:04
|
Line 197 sub handler {
|
Line 197 sub handler {
|
delete($env{'form.'.$key}); |
delete($env{'form.'.$key}); |
} |
} |
my $ltoken = &Apache::lonnet::tmpput({'linkprot' => $itemid.$ltitype.':'.$tail}, |
my $ltoken = &Apache::lonnet::tmpput({'linkprot' => $itemid.$ltitype.':'.$tail}, |
$lonhost); |
$lonhost,'link'); |
if ($ltoken) { |
if ($ltoken) { |
$r->internal_redirect($tail.'?ltoken='.$ltoken); |
$r->internal_redirect($tail.'?ltoken='.$ltoken); |
$r->set_handlers('PerlHandler'=> undef); |
$r->set_handlers('PerlHandler'=> undef); |