--- loncom/lonnet/perl/lonnet.pm	2001/09/20 16:09:07	1.157
+++ loncom/lonnet/perl/lonnet.pm	2001/09/21 20:38:10	1.158
@@ -127,7 +127,7 @@
 # 5/30 H. K. Ng
 # 6/1 Gerd Kortemeyer
 # July Guy Albertelli
-# 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23,9/20 Gerd Kortemeyer
+# 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23,9/20,9/21 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -689,6 +689,7 @@ sub flushcourselogs {
 
 sub courselog {
     my $what=shift;
+    $what=time.':'.$what;
     unless ($ENV{'request.course.id'}) { return ''; }
     if (defined $courselogs{$ENV{'request.course.id'}}) {
 	$courselogs{$ENV{'request.course.id'}}.='&'.$what;
@@ -700,6 +701,20 @@ sub courselog {
     }
 }
 
+sub courseacclog {
+    my $fnsymb=shift;
+    unless ($ENV{'request.course.id'}) { return ''; }
+    my $what=$fnsymb.':'.$ENV{'user.name'}.':'.$ENV{'user.domain'};
+    if ($what=~/(problem|exam|quiz|assess|survey|form)$/) {
+	map {
+            if ($_=~/^form\.(.*)/) {
+		$what.=':'.$1.'='.$ENV{$_};
+            }
+        } keys %ENV;
+    }
+    &courselog($what);
+}
+
 # ----------------------------------------------------------- Check out an item
 
 sub checkout {