Make NewslettCollaboration templatable, and add concept of recent issues.

sbin/install_newsletter.pl

@@ -28,6 +28,8 @@ installMailingTables( $session );
 installNewsletterInAdminConsole( $session );
 installNewsletterSettings( $session );
 addPluginsToConfigFile( $session );
+addTemplateColumnToNewsletterCollection( $session );
+addRecentColumnToNewsletterCollection( $session );
 
 finish($session);
 
@@ -106,6 +108,46 @@ EOSQL
     print "Done.\n";
 }
 
+#----------------------------------------------------------------------------
+sub addTemplateColumnToNewsletterCollection {
+    my $session = shift;
+    my $db      = $session->db;
+    print "\tAdding view template column to NewletterCollection...";
+
+    my $hasColumn = $db->quickScalar( 'show columns from NewsletterCollection where Field=?', [ 'viewTemplateId' ] );
+    
+    unless ( $hasColumn ) {
+        $db->write( 'alter table NewsletterCollection add column viewTemplateId char(22) binary not null default ?', [
+            'aYVYFpofaYvmRYoHwl3x4w'
+        ] );
+        $db->write( 'update NewsletterCollection set viewTemplateId=?', [
+            'aYVYFpofaYvmRYoHwl3x4w',
+        ] );
+    }
+
+    print "Done.\n";
+}
+
+#----------------------------------------------------------------------------
+sub addRecentColumnToNewsletterCollection {
+    my $session = shift;
+    my $db      = $session->db;
+    print "\tAdding recent issues column to NewletterCollection...";
+
+    my $hasColumn = $db->quickScalar( 'show columns from NewsletterCollection where Field=?', [ 'recentIssueCount' ] );
+    
+    unless ( $hasColumn ) {
+        $db->write( 'alter table NewsletterCollection add column recentIssueCount int(3) not null default ?', [
+            1,
+        ] );
+        $db->write( 'update NewsletterCollection set recentIssueCount=?', [
+            1
+        ] );
+    }
+
+    print "Done.\n";
+}
+
 #----------------------------------------------------------------------------
 sub installMailingTables {
     my $session = shift;