diff --git a/sbin/install_newsletter.pl b/sbin/install_newsletter.pl index 5a75065..89aa378 100644 --- a/sbin/install_newsletter.pl +++ b/sbin/install_newsletter.pl @@ -32,6 +32,7 @@ addTemplateColumnToNewsletterCollection( $session ); addRecentColumnToNewsletterCollection( $session ); renamespaceTemplates( $session ); addSpecialStateTable( $session ); +addRegistrationSteps( $session ); finish($session); @@ -273,6 +274,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;