fix 11771 Default newsletter template not set

Pro tip: Never do what I just did. Ever. 8 removes the need for it.

docs/changelog/7.x.x.txt

@@ -9,6 +9,7 @@
  - fixed #11769: WebGUI::Asset::File::ZipArchive specifies a default template of ''
  - fixed #11758: formatting on account stuff is wrong
  - fixed #11770: Starter needs to set all account plugins
+ - fixed #11771: Default Newsletter template not set
 
 7.9.10
  - fixed #11721: spamStopWords not in WebGUI.conf.original

lib/WebGUI/Asset/Wobject/Collaboration/Newsletter.pm

@@ -92,7 +92,16 @@ sub definition {
 		className=>'WebGUI::Asset::Wobject::Collaboration::Newsletter',
 		properties=>\%properties
 		});
-        return $class->SUPER::definition($session, $definition);
+        $class->SUPER::definition($session, $definition);
+
+        # Change the default Collaboration template
+        for my $def ( @$definition ) {
+            if ( exists $def->{properties}->{collaborationTemplateId} ) {
+                $def->{properties}->{collaborationTemplateId}->{defaultValue} = 'newslettercs0000000001';
+            }
+        }
+
+        return $definition;
 }