--- loncom/lonnet/perl/lonnet.pm 2013/04/11 15:30:42 1.1219 +++ 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.1219 2013/04/11 15:30:42 raeburn Exp $ +# $Id: lonnet.pm,v 1.1222 2013/05/15 18:48:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3213,7 +3213,7 @@ sub userfileupload { } else { my $docuname=$env{'user.name'}; my $docudom=$env{'user.domain'}; - if (exists($env{'form.group'})) { + if ((exists($env{'form.group'})) || ($context eq 'syllabus')) { $docuname=$env{'course.'.$env{'request.course.id'}.'.num'}; $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'}; } @@ -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;