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

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

Browse source
This commit is contained in:
Martin Kamerbeek 2010-06-03 10:51:07 +02:00
parent ee409b061d
commit 169d750b0e
5 changed files with 48 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

26
sbin/install_newsletter.pl
View file

@ -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;