From 8e81d9c000210671b3291bcf6dd9770fc1f181e6 Mon Sep 17 00:00:00 2001
From: Frank Dillon <frank@plainblack.com>
Date: Wed, 24 Dec 2003 12:27:29 +0000
Subject: [PATCH] Fixed a bug where user was not being reset in the object if
 authentication failed

---
 lib/WebGUI/Auth/SMB.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Auth/SMB.pm b/lib/WebGUI/Auth/SMB.pm
index 70146a2e1..79d1bcd85 100644
--- a/lib/WebGUI/Auth/SMB.pm
+++ b/lib/WebGUI/Auth/SMB.pm
@@ -16,8 +16,8 @@ use WebGUI::HTMLForm;
 use WebGUI::Form;
 use WebGUI::Session;
 use WebGUI::Utility;
-use Authen::Smb;
-use warnings;
+#use Authen::Smb;
+#use warnings;
 
 our @ISA = qw(WebGUI::Auth);
 
@@ -81,10 +81,11 @@ sub authenticate {
 	my $userData = $self->getParams;
     if($userData->{smbLogin}){
 	   $smb = Authen::Smb::authen($userData->{smbLogin}, $password, $userData->{smbPDC}, $userData->{smbBDC}, $userData->{smbDomain});
-	   $error .= "<li>".$smbError{$smb} if($smb > 0);
+	   $error = "<li>".$smbError{$smb} if($smb > 0)
 	}else{
 	   $error .= "<li>".WebGUI::International::get(5,'Auth/SMB');
 	}
+	$self->user(WebGUI::User->new(1)) if $error ne "";
     $self->error($error);
 	return $error eq "";	 
 }