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

Added a welcome message setting for new registrations.

Browse source
This commit is contained in:
JT Smith 2003-02-02 04:50:59 +00:00
parent 226ed9abcf
commit f234b63317
4 changed files with 41 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -183,6 +183,7 @@ sub www_createAccountSave {
}
WebGUI::Session::start($u->userId);
_logLogin($u->userId,"success");
WebGUI::MessageLog::addEntry($u->userId,"",WebGUI::International::get(870),$session{setting}{welcomeMessage});
system(WebGUI::Macro::process($session{setting}{runOnRegistration})) if ($session{setting}{runOnRegistration} ne "");
WebGUI::MessageLog::addInternationalizedEntry('',$session{setting}{onNewUserAlertGroup},'',536) if ($session{setting}{alertOnNewUser});
} else {

22
lib/WebGUI/Operation/Settings.pm
View file

@ -25,7 +25,7 @@ use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_saveSettings &www_editUserSettings &www_editCompanyInformation
&www_editPrivilegeSettings &www_editMailSettings &www_editMiscSettings
&www_editPrivilegeSettings &www_editMessagingSettings &www_editMiscSettings
&www_editContentSettings &www_manageSettings);
#-------------------------------------------------------------------
@ -46,8 +46,6 @@ sub www_editUserSettings {
$f->hidden("op","saveSettings");
$f->yesNo("anonymousRegistration",WebGUI::International::get(118),$session{setting}{anonymousRegistration});
$f->text("runOnRegistration",WebGUI::International::get(559),$session{setting}{runOnRegistration});
$f->yesNo("alertOnNewUser",WebGUI::International::get(534),$session{setting}{alertOnNewUser});
$f->group("onNewUserAlertGroup",WebGUI::International::get(535),[$session{setting}{onNewUserAlertGroup}]);
$f->yesNo("useKarma",WebGUI::International::get(539),$session{setting}{useKarma});
$f->integer("karmaPerLogin",WebGUI::International::get(540),$session{setting}{karmaPerLogin});
$f->interval("sessionTimeout",WebGUI::International::get(142),WebGUI::DateTime::secondsToInterval($session{setting}{sessionTimeout}));
@ -109,16 +107,28 @@ sub www_editContentSettings {
}
#-------------------------------------------------------------------
sub www_editMailSettings {
sub www_editMessagingSettings {
WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $f);
$output .= helpIcon(13);
$output .= '<h1>'.WebGUI::International::get(133).'</h1>';
$f = WebGUI::HTMLForm->new;
$f->hidden("op","saveSettings");
$f->text("smtpServer",WebGUI::International::get(135),$session{setting}{smtpServer});
$f->yesNo(
-name=>"sendWelcomeMessage",
-value=>$session{setting}{sendWelcomeMessage},
-label=>WebGUI::International::get(868)
);
$f->textarea(
-name=>"welcomeMessage",
-value=>$session{setting}{welcomeMessage},
-label=>WebGUI::International::get(869)
);
$f->textarea("recoverPasswordEmail",WebGUI::International::get(134),$session{setting}{recoverPasswordEmail});
$f->textarea("mailFooter",WebGUI::International::get(824),$session{setting}{mailFooter});
$f->text("smtpServer",WebGUI::International::get(135),$session{setting}{smtpServer});
$f->yesNo("alertOnNewUser",WebGUI::International::get(534),$session{setting}{alertOnNewUser});
$f->group("onNewUserAlertGroup",WebGUI::International::get(535),[$session{setting}{onNewUserAlertGroup}]);
$f->submit;
$output .= $f->print;
return _submenu($output);
@ -164,7 +174,7 @@ sub www_manageSettings {
$output .= '<ul>';
$output .= '<li><a href="'.WebGUI::URL::page('op=editCompanyInformation').'">'.WebGUI::International::get(124).'</a>';
$output .= '<li><a href="'.WebGUI::URL::page('op=editContentSettings').'">'.WebGUI::International::get(525).'</a>';
$output .= '<li><a href="'.WebGUI::URL::page('op=editMailSettings').'">'.WebGUI::International::get(133).'</a>';
$output .= '<li><a href="'.WebGUI::URL::page('op=editMessagingSettings').'">'.WebGUI::International::get(133).'</a>';
$output .= '<li><a href="'.WebGUI::URL::page('op=editMiscSettings').'">'.WebGUI::International::get(140).'</a>';
$output .= '<li><a href="'.WebGUI::URL::page('op=editPrivilegeSettings').'">'.WebGUI::International::get(710).'</a>';
$output .= '<li><a href="'.WebGUI::URL::page('op=editProfileSettings').'">'.WebGUI::International::get(308).'</a>';