[Rt-commit] r7387 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Thu Mar 29 11:04:55 2007
New Revision: 7387

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm

Log:
 r4833 at cubic-pc:  cubic | 2007-03-29 10:50:24 +0400
 * fetch ticket from transaction if the former is not provided


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	Thu Mar 29 11:04:55 2007
@@ -328,6 +328,12 @@
         return 0;
     }
 
+    if ( $args{'Transaction'} && !$args{'Ticket'}
+        && $args{'Transaction'}->ObjectType eq 'RT::Ticket' )
+    {
+        $args{'Ticket'} = $args{'Transaction'}->Object;
+    }
+
     my $msgid = $args{'Entity'}->head->get('Message-ID') || '';
     chomp $msgid;