loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.729, 2006/04/18 18:11:16
+version 1.730, 2006/04/18 20:36:00
  Line 92  delayed.
  	$logid++;
  	my $id=time().'00000'.$$.'00000'.$logid;
  	return &Apache::lonnet::put('nohist_'.$hash_name,
- 				    {
+ 				    { $id => {
- 					$id.'_exe_uname' => $env{'user.name'},
+ 					'exe_uname' => $env{'user.name'},
- 					$id.'_exe_udom'  => $env{'user.domain'},
+ 					'exe_udom'  => $env{'user.domain'},
- 					$id.'_exe_time'  => time(),
+ 					'exe_time'  => time(),
- 					$id.'_exe_ip'    => $ENV{'REMOTE_ADDR'},
+ 					'exe_ip'    => $ENV{'REMOTE_ADDR'},
- 					$id.'_delflag'   => $delflag,
+ 					'delflag'   => $delflag,
- 					$id.'_logentry'  => $storehash,
+ 					'logentry'  => $storehash,
- 					$id.'_uname'     => $uname,
+ 					'uname'     => $uname,
- 					$id.'_udom'      => $udom,
+ 					'udom'      => $udom,
- 				    },
+ 				    }
+ 				  },
  				    $env{'course.'.$env{'request.course.id'}.'.domain'},
  				    $env{'course.'.$env{'request.course.id'}.'.num'}
  				    );