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

Adding install script.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-11-03 17:52:52 +01:00
parent 13b7cd0948
commit 1655d92642
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
sbin/install_newsletter.pl
View file

@ -32,6 +32,7 @@ addTemplateColumnToNewsletterCollection( $session );
addRecentColumnToNewsletterCollection( $session ); addRecentColumnToNewsletterCollection( $session );
renamespaceTemplates( $session ); renamespaceTemplates( $session );
addSpecialStateTable( $session ); addSpecialStateTable( $session );
addRegistrationSteps( $session );
finish($session); finish($session);
@ -273,6 +274,21 @@ EOSQL
print "Done.\n"; 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 { sub start {
my $webguiRoot = shift; my $webguiRoot = shift;