From 9038c3af721a156040cc719ed76f4fd7b98c9c7b Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 27 May 2003 03:07:39 +0000
Subject: [PATCH] fixed a bug where "welcome" emails were not being sent to
 users.

---
 lib/WebGUI/Authentication/WebGUI.pm | 2 +-
 lib/WebGUI/Operation/Account.pm     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Authentication/WebGUI.pm b/lib/WebGUI/Authentication/WebGUI.pm
index 57f34a3bd..0efd9c3c0 100644
--- a/lib/WebGUI/Authentication/WebGUI.pm
+++ b/lib/WebGUI/Authentication/WebGUI.pm
@@ -72,8 +72,8 @@ sub registrationForm {
 sub registrationFormSave {
 	my $authInfo = "\n\n".WebGUI::International::get(50).": ".$session{form}{"authWebGUI.username"}."\n"
         	.WebGUI::International::get(51).": ".$session{form}{'authWebGUI.identifier'}."\n\n";
-        WebGUI::MessageLog::addEntry($_[0],"",WebGUI::International::get(870),$session{setting}{welcomeMessage}.$authInfo);
 	adminFormSave($_[0]);
+        WebGUI::MessageLog::addEntry($_[0],"",WebGUI::International::get(870),$session{setting}{welcomeMessage}.$authInfo);
 }
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Operation/Account.pm b/lib/WebGUI/Operation/Account.pm
index 403cb4c6a..cecd7b7b7 100644
--- a/lib/WebGUI/Operation/Account.pm
+++ b/lib/WebGUI/Operation/Account.pm
@@ -180,11 +180,11 @@ sub www_createAccountSave {
 		$u = WebGUI::User->new("new");
 		$u->username($username);
 		$u->authMethod($session{setting}{authMethod});
-		WebGUI::Authentication::registrationFormSave($u->userId);
 		$u->karma($session{setting}{karmaPerLogin},"Login","Just for logging in.") if ($session{setting}{useKarma});
 		foreach $fieldName (keys %{$profile}) {
 			$u->profileField($fieldName,${$profile}{$fieldName});
 		}
+		WebGUI::Authentication::registrationFormSave($u->userId);
                 WebGUI::Session::start($u->userId);
 		_logLogin($u->userId,"success");
 		system(WebGUI::Macro::process($session{setting}{runOnRegistration})) if ($session{setting}{runOnRegistration} ne "");