--- loncom/lonnet/perl/lonnet.pm	2012/03/09 16:36:00	1.1157
+++ loncom/lonnet/perl/lonnet.pm	2012/03/14 20:53:50	1.1158
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1157 2012/03/09 16:36:00 www Exp $
+# $Id: lonnet.pm,v 1.1158 2012/03/14 20:53:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3379,7 +3379,13 @@ sub countacc {
     my $url=&declutter(shift);
     return if (! defined($url) || $url eq '');
     unless ($env{'request.course.id'}) { return ''; }
+#
+# Mark that this url was used in this course
+#
     $accesshash{$env{'request.course.id'}.'___'.$url.'___course'}=1;
+#
+# Increase the access count for this resource in this child process
+#
     my $key=$$.$processmarker.'_'.$dumpcount.'___'.$url.'___count';
     $accesshash{$key}++;
 }