--- loncom/interface/londocs.pm 2020/03/03 01:16:35 1.668 +++ loncom/interface/londocs.pm 2020/03/06 19:40:57 1.670 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.668 2020/03/03 01:16:35 raeburn Exp $ +# $Id: londocs.pm,v 1.670 2020/03/06 19:40:57 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1227,7 +1227,7 @@ sub update_paste_buffer { } elsif ($url =~ m{^/res/$match_domain/$match_username/}) { $pasteurls{$url} = 1; } else { - $pasteurls{$cid.'_'.$url} = 1; + $pasteurls{$cid.'_'.$url} = 1; } } } @@ -4203,12 +4203,7 @@ END if (&Apache::lonnet::symbverify($symb,$url)) { my $shownsymb = $symb; if ($isexternal) { - if ($url =~ /^([^#]+)#([^#]+)$/) { - $url = $1; - $anchor = $2; - my $escan = &escape('#'); - $shownsymb =~ s/^([^\#]+)#([^\#]+)$/$1$escan$2/; - } + $url =~ s/\#[^#]+$//; if ($container eq 'page') { $url = &Apache::lonnet::clutter($url); }