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

Add base classes for mailing instances.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-06 13:52:49 +02:00
parent 63798b98f1
commit 6aa9df2170
3 changed files with 119 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

22
sbin/install_newsletter.pl
View file

@ -22,6 +22,7 @@ my $session = start( $webguiRoot, $configFile );
installMailableAspectTable( $session );
installNewsletterCollection( $session );
installMailingTables( $session );
finish($session);
@ -32,8 +33,9 @@ sub installMailableAspectTable {
$session->db->write(<<EOSQL);
create table if not exists assetAspectMailable (
assetId char(22) binary not null,
revisionDate bigint(20) not null,
assetId char(22) binary not null,
revisionDate bigint(20) not null,
mailStyleTemplateId char(22) binary not null,
primary key( assetId, revisionDate )
);
EOSQL
@ -64,6 +66,22 @@ EOSQL2
print "Done.\n";
}
#----------------------------------------------------------------------------
sub installMailingTables {
my $session = shift;
print "\tInstalling Mailing table...";
use WebGUI::Mailing;
use WebGUI::Mailing::Email;
WebGUI::Mailing->crud_createOrUpdateTable( $session );
WebGUI::Mailing::Email->crud_createOrUpdateTable( $session );
print "Done\n";
}
#----------------------------------------------------------------------------
sub start {
my $webguiRoot = shift;