RT# 78547 - Flag to disable email/print/fax/etc during tests or reports

[freeside.git] / FS / FS / msg_template / InitialData.pm

diff --git a/FS/FS/msg_template/InitialData.pm b/FS/FS/msg_template/InitialData.pm
index a4e27fd..d502b3f 100644 (file)
--- a/FS/FS/msg_template/InitialData.pm
+++ b/FS/FS/msg_template/InitialData.pm
@@ -3,6 +3,7 @@ package FS::msg_template::InitialData;
 sub _initial_data {
   [
     { msgname   => 'Password reset',
+      msgclass  => 'email',
       mime_type => 'text/html', #multipart/alternative with a text part?
                                   # cranky mutt/pine users like me are rare
 
@@ -21,6 +22,37 @@ If you did not request this password reset, you may safely ignore and delete thi
 END
                       ],
     },
+    { msgname   => 'Refund receipt',
+      msgclass  => 'email',
+      mime_type => 'text/html',
+      _conf        => 'refund_receipt_msgnum',
+      _insert_args => [ subject => '{ $company_name } refund receipt',
+                        body    => <<'END',
+Dear {$first} {$last},<BR>
+<BR>
+The following refund has been applied to your account.<BR>
+<BR>
+Refund ID: {$refundnum}<BR>
+Date:      {$date}<BR>
+Amount:    {$refund}<BR>
+
+END
+                      ],
+    },
+    { msgname   => 'System log',
+      msgclass  => 'email',
+      mime_type => 'text/html',
+      _upgrade_journal => 'system_log_email_template',
+      _insert_args => [ subject => '{ $company_name } system log',
+                        body    => <<'END',
+Level: {$loglevel}<BR>
+Context: {$logcontext}<BR>
+<BR>
+{$logmessage}<BR>
+
+END
+                      ],
+    },
   ];
 }