Forward porting CS default post received templateId fix for the db.

docs/changelog/7.x.x.txt

@@ -3,7 +3,8 @@
  - Added support for template attachments; scripts and stylesheets that will
    be included using style->setScript and setLink instead of just using raw
    head tags.
- - fixed: #10322: Dataform: wrong attr on script tag
+ - fixed #10322: Dataform: wrong attr on script tag
+ - fixed #10336: postReceivedTemplateId not corrected in upgrade_7.6.0-7.6.1 (Jukka Raimovaara / Axxion Oy)
 
 7.7.5
  - Adding StoryManager.

docs/upgrades/upgrade_7.5.24-7.6.0.pl

@@ -570,7 +570,7 @@ sub addEMSBadgeTemplate {
 sub addCSPostReceivedTemplate {
     my $session = shift;
     print "\tAdding Post Received Template ID field for CS..." unless $quiet;
-    $session->db->write("ALTER TABLE Collaboration ADD COLUMN postReceivedTemplateId VARCHAR(22) DEFAULT 'default-post-received';");
+    $session->db->write("ALTER TABLE Collaboration ADD COLUMN postReceivedTemplateId VARCHAR(22) DEFAULT 'default_post_received';");
     print "Done.\n" unless $quiet;
 }
 

docs/upgrades/upgrade_7.5.40-7.6.10.pl

@@ -1739,7 +1739,7 @@ sub fixIsPublicOnTemplates {
 sub addCSPostReceivedTemplate {
     my $session = shift;
     print "\tAdding Post Received Template ID field for CS..." unless $quiet;
-    $session->db->write("ALTER TABLE Collaboration ADD COLUMN postReceivedTemplateId VARCHAR(22) DEFAULT 'default-post-received';");
+    $session->db->write("ALTER TABLE Collaboration ADD COLUMN postReceivedTemplateId VARCHAR(22) DEFAULT 'default_post_received';");
     print "Done.\n" unless $quiet;
 }
 

docs/upgrades/upgrade_7.7.5-7.7.6.pl

@@ -23,16 +23,15 @@ use WebGUI::Session;
 use WebGUI::Storage;
 use WebGUI::Asset;
 
-
 my $toVersion = "7.7.6"; 
 my $quiet; 
 
-
 my $session = start(); 
 
 # upgrade functions go here
 addTemplateAttachmentsTable($session);
 revertUsePacked( $session );
+fixDefaultPostReceived($session);
 addEuVatDbColumns( $session );
 
 finish($session); 
@@ -78,6 +77,19 @@ sub revertUsePacked {
     print "DONE!\n" unless $quiet;
 }
 
+#----------------------------------------------------------------------------
+# Describe what our function does
+sub fixDefaultPostReceived {
+    my $session = shift;
+    $session->db->write(<<EOSQL);
+UPDATE Collaboration SET postReceivedTemplateId='default_post_received1' WHERE postReceivedTemplateId='default-post-received'
+EOSQL
+    $session->db->write(<<EOSQL);
+ALTER TABLE Collaboration ALTER COLUMN postReceivedTemplateId SET DEFAULT 'default_post_received1'
+EOSQL
+    print "DONE!\n" unless $quiet;
+}
+
 #----------------------------------------------------------------------------
 sub addEuVatDbColumns {
     my $session = shift;