--- loncom/lonnet/perl/lonnet.pm 2006/06/30 00:26:49 1.759 +++ loncom/lonnet/perl/lonnet.pm 2006/06/30 04:23:36 1.760 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.759 2006/06/30 00:26:49 albertel Exp $ +# $Id: lonnet.pm,v 1.760 2006/06/30 04:23:36 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)$/) { return ''; } + if ($fname=~/\/(aboutme|syllabus|bulletinboard|smppg|grppg)$/) { return ''; } $fname=~s/[\n\r]//g; my $author=$fname; $author=~s/\/home\/httpd\/html\/res\/([^\/]*)\/([^\/]*).*/$1\/$2/;