--- loncom/lonnet/perl/lonnet.pm 2006/06/30 04:23:36 1.760 +++ loncom/lonnet/perl/lonnet.pm 2006/07/07 21:55:23 1.761 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.760 2006/06/30 04:23:36 raeburn Exp $ +# $Id: lonnet.pm,v 1.761 2006/07/07 21:55:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1081,7 +1081,7 @@ sub currentversion { sub subscribe { my $fname=shift; - if ($fname=~/\/(aboutme|syllabus|bulletinboard|smppg|grppg)$/) { return ''; } + if ($fname=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) { return ''; } $fname=~s/[\n\r]//g; my $author=$fname; $author=~s/\/home\/httpd\/html\/res\/([^\/]*)\/([^\/]*).*/$1\/$2/;