oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed a bug where "welcome" emails were not being sent to users.

Browse source
This commit is contained in:
JT Smith 2003-05-27 03:07:39 +00:00
parent 9c7bdf2863
commit 9038c3af72
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Authentication/WebGUI.pm
View file

@ -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);
}
#-------------------------------------------------------------------

2
lib/WebGUI/Operation/Account.pm
View file

@ -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 "");