From 200b4c3ec7ca521612a0d0d435bd5ec631c2f075 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 10 Jul 2011 18:11:28 -0700
Subject: [PATCH] Specify the auth type when HTTP Basic auth fails.  Fixes bug
 #12184.

---
 docs/changelog/7.x.x.txt | 1 +
 lib/WebGUI.pm            | 1 +
 2 files changed, 2 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index bc7d12dbf..7a2ecaac3 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -7,6 +7,7 @@
  - fixed: Date formatting with WebGUI::DateTime has extra spaces for single digit months and days.
  - fixed #12165:  Default date in Thingy doesn't work
  - fixed #12188: Thingy broken after upgrade to 7.9.32-stable
+ - fixed #12184: Apache error in modperl.error.log (William McKee, Knowmad Technologies)
 
 7.10.19
  - fixed #12169: extras uploads symlink export
diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm
index 850fa6f8b..3579511e5 100644
--- a/lib/WebGUI.pm
+++ b/lib/WebGUI.pm
@@ -143,6 +143,7 @@ sub authen {
 			}
 		}
 		$log->security($username." failed to login using HTTP Basic Authentication");
+		$request->auth_type('Basic');
 		$request->note_basic_auth_failure;
 		return Apache2::Const::HTTP_UNAUTHORIZED;
 	}