From ce1c4abbb6d04e116fa69bfe369b8178bcf48b20 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 1 Aug 2002 03:48:11 +0000
Subject: [PATCH] Under mod_perl the WebGUI user is automatically added to the
 access-log for better statistics.

---
 lib/WebGUI/Session.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index 2f6e24014..2c56477c9 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -235,6 +235,12 @@ sub open {
 	###----------------------------
 	### current user's account and profile information (from users and userProfileData tables)
 	$session{user} = _getUserInfo($session{var}{userId},$session{dbh});
+	if ($session{env}{MOD_PERL}) {
+                my $r = Apache->request;
+                if(defined($r)) {
+			$r->connection->user($session{user}{username});
+		}
+	}
 	###----------------------------
 	### current page's properties (from page table)
 	$session{page} = _getPageInfo("",$session{dbh},$session{setting}{notFoundPage},$session{config}{scripturl});