version 1.52, 2016/10/31 12:59:11
|
version 1.53, 2016/10/31 19:49:05
|
Line 54 sub wrapper {
|
Line 54 sub wrapper {
|
); |
); |
|
|
my $anchor; |
my $anchor; |
if (($is_ext) && ($env{'form.symb'})) { |
if ($is_ext) { |
(undef,undef,my $res) = &Apache::lonnet::decode_symb($env{'form.symb'}); |
if ($env{'form.symb'}) { |
if ($res =~ /(#[^#]+)$/) { |
(undef,undef,my $res) = &Apache::lonnet::decode_symb($env{'form.symb'}); |
$anchor = $1; |
if ($res =~ /(#[^#]+)$/) { |
|
$anchor = $1; |
|
} |
|
} elsif ($env{'form.anchor'} ne '') { |
|
$anchor = '#'.$env{'form.anchor'}; |
} |
} |
} |
} |
|
|
Line 176 sub handler {
|
Line 180 sub handler {
|
} |
} |
if (($is_ext) || ($exttool)) { |
if (($is_ext) || ($exttool)) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['forceedit','register','folderpath','symb','idx','title']); |
['forceedit','register','folderpath','symb','idx','title','anchor']); |
if (($env{'form.forceedit'}) && |
if (($env{'form.forceedit'}) && |
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) && |
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) && |
(($env{'form.folderpath'} =~ /^supplemental/) || |
(($env{'form.folderpath'} =~ /^supplemental/) || |
($env{'form.symb'} =~ /^uploaded/))) { |
($env{'form.symb'} =~ /^uploaded/))) { |
(undef,undef,my $res) = &Apache::lonnet::decode_symb($env{'form.symb'}); |
if ($env{'form.symb'}) { |
if ($res =~ /(#[^#]+)$/) { |
(undef,undef,my $res) = &Apache::lonnet::decode_symb($env{'form.symb'}); |
$url .= $1; |
if ($res =~ /(#[^#]+)$/) { |
|
$url .= $1; |
|
} |
|
} elsif ($env{'form.folderpath'} =~ /^supplemental/) { |
|
if ($env{'form.anchor'} ne '') { |
|
$url .= '#'.$env{'form.anchor'}; |
|
} |
} |
} |
my $type = 'ext'; |
my $type = 'ext'; |
my %ltitools; |
my %ltitools; |