--- loncom/lonnet/perl/lonnet.pm	2006/04/07 22:42:32	1.728
+++ loncom/lonnet/perl/lonnet.pm	2006/04/18 18:11:16	1.729
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.728 2006/04/07 22:42:32 albertel Exp $
+# $Id: lonnet.pm,v 1.729 2006/04/18 18:11:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -85,6 +85,28 @@ delayed.
 
 
 # --------------------------------------------------------------------- Logging
+{
+    my $logid;
+    sub instructor_log {
+	my ($hash_name,$storehash,$delflag,$uname,$udom)=@_;
+	$logid++;
+	my $id=time().'00000'.$$.'00000'.$logid;
+	return &Apache::lonnet::put('nohist_'.$hash_name,
+				    {
+					$id.'_exe_uname' => $env{'user.name'},
+					$id.'_exe_udom'  => $env{'user.domain'},
+					$id.'_exe_time'  => time(),
+					$id.'_exe_ip'    => $ENV{'REMOTE_ADDR'},
+					$id.'_delflag'   => $delflag,
+					$id.'_logentry'  => $storehash,
+					$id.'_uname'     => $uname,
+					$id.'_udom'      => $udom,
+				    },
+				    $env{'course.'.$env{'request.course.id'}.'.domain'},
+				    $env{'course.'.$env{'request.course.id'}.'.num'}
+				    );
+    }
+}
 
 sub logtouch {
     my $execdir=$perlvar{'lonDaemons'};