Make mailing manager template settable en change namespace to Mailing/Manage.

lib/WebGUI/Mailing/Admin.pm

@@ -91,12 +91,19 @@ sub www_settings {
     $f->text(
         name    => 'newsletterReturnDomain',
         value   => $setting->get( 'newsletterReturnDomain' ),
-        label   => $i18n->get( 'Newsletter domain name' ),
+        label   => $i18n->get( 'newsletter domain name' ),
     );
     $f->integer(
         name    => 'newsletterBounceScoreThreshold',
         value   => $setting->get( 'newsletterBounceScoreThreshold' ),
-        label   => $i18n->get( 'Bounce score threshold' ),
+        label   => $i18n->get( 'bounce score threshold' ),
+    );
+    $f->template(
+        name            => 'mailingManagerTemplateId',
+        value           => $setting->get( 'mailingManagerTemplateId' ),
+        defaultValue    => 'FTfNhWI8KJOwLzFUl5rYeQ',
+        label           => $i18n->get( 'manage mailings template' ),
+        namespace       => 'Mailing/Manage',
     );
     $f->submit;
 
@@ -113,6 +120,7 @@ sub www_settingsSave {
 
     $setting->set( 'newsletterReturnDomain',            $form->get('newsletterReturnDomain')                );
     $setting->set( 'newsletterBounceScoreThreshold',    $form->integer('newsletterBounceScoreThreshold')    );
+    $setting->set( 'mailingManagerTemplateId',          $form->template('mailingManagerTemplateId')         );
 
     return $self->www_settings;
 }
@@ -122,6 +130,7 @@ sub www_view {
     my $self    = shift;
     my $session = $self->session;
     my $url     = $session->url;
+    my $setting = $session->setting;
     my $i18n    = WebGUI::International->new( $session, 'MailingManager' );
 
     return $self->www_settings unless $self->configurationComplete;
@@ -162,7 +171,7 @@ sub www_view {
 
     my $var = { newsletter_loop => \@newsletterLoop };
 
-    my $template = WebGUI::Asset::Template->new( $self->session, 'FTfNhWI8KJOwLzFUl5rYeQ' );
+    my $template = WebGUI::Asset::Template->new( $session, $setting->get('mailingManagerTemplateId') );
     return $self->getAdminConsole->render( $template->process( $var ), $i18n->get( 'manage mailings' ) );
 }
 

lib/WebGUI/i18n/Dutch/MailingManager.pm

@@ -82,6 +82,11 @@ our $I18N = {
     'cancel mailing failure' => {
         message => 'De mailing kan niet afgebroken worden. Dit kan voorkomen als de mailing geplanned stond om verzonden te worden vlak voor het moment waarop deze afgebroken werd.',
     },
+
+    'manage mailings template' => {
+        message => 'Mailing beheer sjabloon',
+    },
+
 };
 
 1;

lib/WebGUI/i18n/English/MailingManager.pm

@@ -82,6 +82,11 @@ our $I18N = {
     'cancel mailing failure' => {
         message => 'The mailing could not be canceled. This can happen when the mailing has been scheduled just before it was canceled.',
     },
+
+    'manage mailings template' => {
+        message => 'Manage mailings template',
+    },
+
 };
 
 1;

sbin/install_newsletter.pl

@@ -30,6 +30,7 @@ installNewsletterSettings( $session );
 addPluginsToConfigFile( $session );
 addTemplateColumnToNewsletterCollection( $session );
 addRecentColumnToNewsletterCollection( $session );
+renamespaceTemplates( $session );
 
 finish($session);
 
@@ -185,8 +186,14 @@ sub installNewsletterSettings {
     
     print "\tInstalling newsletter setting slots...";
 
-    $setting->add( 'newsletterReturnDomain', undef  ) unless $setting->has( 'newsletterReturnDomain'      );
-    $setting->add( 'newsletterBounceScoreThreshold', 0    ) unless $setting->has( 'newsletterBounceScoreThreshold'    );
+    $setting->add( 'newsletterReturnDomain', undef  )       
+        unless $setting->has( 'newsletterReturnDomain' );
+
+    $setting->add( 'newsletterBounceScoreThreshold', 0 ) 
+        unless $setting->has( 'newsletterBounceScoreThreshold' );
+
+    $setting->add( 'mailingManagerTemplateId', 'FTfNhWI8KJOwLzFUl5rYeQ' )       
+        unless $setting->has( 'mailingManagerTemplateId' );
 
     print "Done.\n";
 }
@@ -218,6 +225,21 @@ sub addPluginsToConfigFile {
     print "Done.\n";
 }
 
+#----------------------------------------------------------------------------
+sub renamespaceTemplates {
+    my $session = shift;
+    my $db      = $session->db;
+
+    print "\tRenamespacing templates...";
+
+    $db->write( 'update template set namespace=? where namespace=?', [
+        'Mailing/Manage',
+        'NLAdmin/Manage',
+    ] );
+
+    print "Done.\n";
+}
+
 #----------------------------------------------------------------------------
 sub start {
     my $webguiRoot  = shift;