From 1655d92642bbc068a5be6d38bd298eb0150c4b17 Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@martintwee.oqapi.nl>
Date: Wed, 3 Nov 2010 17:52:52 +0100
Subject: [PATCH] Adding install script.

---
 sbin/install_newsletter.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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;