[Rt-commit] r8860 - rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface

[ruz at bestpractical.com]

Author: ruz
Date: Fri Aug 31 09:15:19 2007
New Revision: 8860

Modified:
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm

Log:
* use new API

Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm	Fri Aug 31 09:15:19 2007
@@ -600,13 +600,19 @@
         $entity->add_part( $a->ContentAsMIME );
     }
 
-    my $mail = PrepareEmailUsingTemplate(
+    my ($template, $msg) = PrepareEmailUsingTemplate(
         Template  => 'Forward',
         Arguments => {
             Transaction => $txn,
             Ticket      => $txn->Object,
         },
     );
+    my $mail;
+    if ( $template ) {
+        $mail = $template->MIMEObj;
+    } else {
+        $RT::Logger->warning($msg);
+    }
     unless ( $mail ) {
         $RT::Logger->warning("Couldn't generate email using template 'Forward'");