--- loncom/lonnet/perl/lonnet.pm	2006/04/18 18:11:16	1.729
+++ loncom/lonnet/perl/lonnet.pm	2006/04/18 20:36:00	1.730
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.729 2006/04/18 18:11:16 www Exp $
+# $Id: lonnet.pm,v 1.730 2006/04/18 20:36:00 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,16 +92,17 @@ delayed.
 	$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,
-				    },
+				    { $id => {
+					'exe_uname' => $env{'user.name'},
+					'exe_udom'  => $env{'user.domain'},
+					'exe_time'  => time(),
+					'exe_ip'    => $ENV{'REMOTE_ADDR'},
+					'delflag'   => $delflag,
+					'logentry'  => $storehash,
+					'uname'     => $uname,
+					'udom'      => $udom,
+				    }
+				  },
 				    $env{'course.'.$env{'request.course.id'}.'.domain'},
 				    $env{'course.'.$env{'request.course.id'}.'.num'}
 				    );