From 3531838acead0b51f1103f7e38a9c85c8b5ea61c Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 17 May 2003 01:05:41 +0000
Subject: [PATCH] fixed bug 733853

---
 lib/WebGUI/Operation/Account.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/WebGUI/Operation/Account.pm b/lib/WebGUI/Operation/Account.pm
index 0d41f4a0b..7dea5d6de 100644
--- a/lib/WebGUI/Operation/Account.pm
+++ b/lib/WebGUI/Operation/Account.pm
@@ -437,8 +437,7 @@ sub www_recoverPasswordFinish {
         	        $password .= chr(ord('A') + randint(32));
         	}
         	$encryptedPassword = Digest::MD5::md5_base64($password);
-		my $u = WebGUI::User->new($userId);
-		$u->identifier($encryptedPassword);
+		WebGUI::Authentication::saveParams($userId,"WebGUI",{identifier=>$encryptedPassword});
 		$flag = 1;
 		$message = $session{setting}{recoverPasswordEmail};
 		$message .= "\n".WebGUI::International::get(50).": ".$username."\n";