UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge branch 'registration_plugin' into mailcommand

Browse source 
Conflicts:
	sbin/install_newsletter.pl
This commit is contained in:
Martin Kamerbeek 2010-11-09 16:44:35 +01:00
commit a15b6a0edb
4 changed files with 237 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
sbin/install_newsletter.pl
View file

@ -33,6 +33,7 @@ addRecentColumnToNewsletterCollection( $session );
renamespaceTemplates( $session );
addSpecialStateTable( $session );
addListNameColumn( $session );
addRegistrationSteps( $session );
finish($session);
@ -290,6 +291,21 @@ EOSQL
print "Done.\n";
}
#----------------------------------------------------------------------------
sub addRegistrationSteps {
my $session = shift;
print "\tAdding MailingSubscribe Registration Step to config...";
my %steps = map { $_ => 1 } @{ $session->config->get( 'registrationSteps' ) || [] };
$steps{ 'WebGUI::Registration::Step::MailingSubscribe' } = 1;
$session->config->set( 'registrationSteps', [ keys %steps ] );
print "Done.\n";
}
#----------------------------------------------------------------------------
sub start {
my $webguiRoot = shift;