--- loncom/lonnet/perl/lonnet.pm 2002/12/06 16:34:55 1.311 +++ loncom/lonnet/perl/lonnet.pm 2002/12/09 19:04:44 1.312 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.311 2002/12/06 16:34:55 matthew Exp $ +# $Id: lonnet.pm,v 1.312 2002/12/09 19:04:44 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -729,6 +729,7 @@ sub currentversion { sub subscribe { my $fname=shift; + if ($fname=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) { return ''; } my $author=$fname; $author=~s/\/home\/httpd\/html\/res\/([^\/]*)\/([^\/]*).*/$1\/$2/; my ($udom,$uname)=split(/\//,$author);