--- loncom/lonnet/perl/lonnet.pm	2003/08/29 20:38:12	1.407
+++ loncom/lonnet/perl/lonnet.pm	2003/09/02 13:07:51	1.408
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.407 2003/08/29 20:38:12 www Exp $
+# $Id: lonnet.pm,v 1.408 2003/09/02 13:07:51 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1228,7 +1228,7 @@ sub courseacclog {
     my $fnsymb=shift;
     unless ($ENV{'request.course.id'}) { return ''; }
     my $what=$fnsymb.':'.$ENV{'user.name'}.':'.$ENV{'user.domain'};
-    if ($fnsymb=~/(problem|exam|quiz|assess|survey|form)$/) {
+    if ($fnsymb=~/(problem|exam|quiz|assess|survey|form|page)$/) {
         $what.=':POST';
 	foreach (keys %ENV) {
             if ($_=~/^form\.(.*)/) {