--- loncom/lonnet/perl/lonnet.pm 2013/04/24 02:44:05 1.1220 +++ loncom/lonnet/perl/lonnet.pm 2013/05/15 18:48:38 1.1222 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1220 2013/04/24 02:44:05 raeburn Exp $ +# $Id: lonnet.pm,v 1.1222 2013/05/15 18:48:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3363,7 +3363,9 @@ sub extract_embedded_items { &add_filetype($allfiles,$attr->{'src'},'src'); } if (lc($tagname) eq 'a') { - &add_filetype($allfiles,$attr->{'href'},'href'); + unless (($attr->{'href'} =~ /^#/) || ($attr->{'href'} eq '')) { + &add_filetype($allfiles,$attr->{'href'},'href'); + } } if (lc($tagname) eq 'script') { my $src;