version 1.100, 2018/12/29 23:24:58
|
version 1.101, 2018/12/30 19:47:06
|
Line 472 sub handler {
|
Line 472 sub handler {
|
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
if ($direction eq 'return') { |
if ($direction eq 'return') { |
# -------------------------------------------------------- Return to last known |
# -------------------------------------------------------- Return to last known |
my ($newloc,$usehttp); |
my ($newloc,$usehttp); |
if (($last) && (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
if (($last) && (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
Line 484 sub handler {
|
Line 484 sub handler {
|
$usehttp = &check_http_req(\$newloc); |
$usehttp = &check_http_req(\$newloc); |
if ($hash{'encrypted_'.$id}) { |
if ($hash{'encrypted_'.$id}) { |
$newloc=&Apache::lonenc::encrypted($newloc); |
$newloc=&Apache::lonenc::encrypted($newloc); |
} elsif ($newloc =~ m{^(/adm/wrapper/ext/[^\#]+)(?:|\#([^\#]+))$}) { |
} |
|
if ($newloc =~ m{^(/adm/wrapper/ext/[^\#]+)(?:|(\#[^\#]+))$}) { |
my ($url,$anchor) = ($1,$2); |
my ($url,$anchor) = ($1,$2); |
if ($anchor) { |
if ($anchor) { |
$newloc = $url.(($url=~/\?/)?'&':'?').'symb='.&escape($last); |
$newloc = $url.(($url=~/\?/)?'&':'?').'symb='.&escape($last).$anchor; |
} |
} |
} |
} |
} else { |
} else { |