--- loncom/lonnet/perl/lonnet.pm 2013/05/14 18:47:07 1.1221 +++ 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.1221 2013/05/14 18:47:07 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,7 @@ sub extract_embedded_items { &add_filetype($allfiles,$attr->{'src'},'src'); } if (lc($tagname) eq 'a') { - unless ($attr->{'href'} =~ /^#/) { + unless (($attr->{'href'} =~ /^#/) || ($attr->{'href'} eq '')) { &add_filetype($allfiles,$attr->{'href'},'href'); } }