Also add stuff to configfile while installing.

sbin/install_newsletter.pl

@@ -12,6 +12,7 @@ use strict;
 use Pod::Usage;
 use Getopt::Long;
 use WebGUI::Session;
+use List::MoreUtils qw{ insert_after_string };
 
 # Get parameters here, including $help
 GetOptions(
@@ -26,6 +27,7 @@ installNewsletterCollection( $session );
 installMailingTables( $session );
 installNewsletterInAdminConsole( $session );
 installNewsletterSettings( $session );
+addPluginsToConfigFile( $session );
 
 finish($session);
 
@@ -147,6 +149,26 @@ sub installNewsletterSettings {
     print "Done.\n";
 }
 
+#----------------------------------------------------------------------------
+sub addPluginsToConfigFile {
+    my $session = shift;
+    my $config  = $session->config;
+
+    print "\tAdding plugins to config file...";
+   
+    $config->set( 'assets/WebGUI::Asset::Wobject::NewsletterCollection', {
+        category    => 'basic',
+    } );
+    
+    my @handlers = @{ $session->config->get('contentHandlers') };
+    if ( !grep { $_ eq 'WebGUI::Content::NewsletterManager' } @handlers ) {
+        insert_after_string 'WebGUI::Content::Shop', 'WebGUI::Content::NewsletterManager', @handlers;
+        $session->config->set( 'contentHandlers', \@handlers );
+    }
+    
+    print "Done.\n";
+}
+
 #----------------------------------------------------------------------------
 sub start {
     my $webguiRoot  = shift;