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

Add listname property.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-10-13 16:29:29 +02:00
parent 66209f4102
commit 9422d7cd84
2 changed files with 62 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
sbin/install_newsletter.pl
View file

@ -12,7 +12,7 @@ use strict;
use Pod::Usage;
use Getopt::Long;
use WebGUI::Session;
use List::MoreUtils qw{ insert_after_string };
use List::MoreUtils qw{ insert_after_string none };
# Get parameters here, including $help
GetOptions(
@ -32,9 +32,26 @@ addTemplateColumnToNewsletterCollection( $session );
addRecentColumnToNewsletterCollection( $session );
renamespaceTemplates( $session );
addSpecialStateTable( $session );
addListNameColumn( $session );
finish($session);
#----------------------------------------------------------------------------
sub addListNameColumn {
my $session = shift;
my $db = $session->db;
print "\tAdding list name column for subscribers...";
my @columns = $db->buildArray( 'desc assetAspectSubscriber' );
if ( none { $_ eq 'listName' } @columns ) {
$db->write( 'alter table assetAspectSubscriber add column listName varchar(255)' );
}
print "Done.\n";
}
#----------------------------------------------------------------------------
sub installMailableAspectTable {
my $session = shift;