From 95d0f9fedbeb09eea2f59994c50a618c2c3cc2f8 Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@oqapi.nl>
Date: Fri, 14 Jan 2011 14:32:15 +0100
Subject: [PATCH] Set a flag when rendering mailings

---
 lib/WebGUI/AssetAspect/Mailable.pm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/AssetAspect/Mailable.pm b/lib/WebGUI/AssetAspect/Mailable.pm
index 90bc717..5efa6c7 100644
--- a/lib/WebGUI/AssetAspect/Mailable.pm
+++ b/lib/WebGUI/AssetAspect/Mailable.pm
@@ -2,7 +2,7 @@ package WebGUI::AssetAspect::Mailable;
 
 use strict;
 use warnings;
-use Class::C3; 
+use Class::C3;
 
 use WebGUI::Macro;
 use Tie::IxHash;
@@ -115,13 +115,15 @@ sub processContentAsUser {
     $session->user( { userId => $userId } );
     $session->log->preventDebugOutput;
 
-    my $styleTemplateId = 
-           $configuration->{ styleTemplateId } 
-        || $self->get('mailStyleTemplateId') 
+    my $styleTemplateId =
+           $configuration->{ styleTemplateId }
+        || $self->get('mailStyleTemplateId')
         || $self->get('styleTemplateId');
 
+    $session->stow->set( 'mailing_rendering' => 1 );
+
     # Generate email body for this user
-    my $content = $session->style->process(   
+    my $content = $session->style->process(
         $self->generateEmailContent( $issueId, $configuration ),
         $styleTemplateId,
     );
@@ -129,10 +131,13 @@ sub processContentAsUser {
     # Process macros
     WebGUI::Macro::process( $session, \$content );
 
+    $session->stow->delete( 'mailing_rendering' );
+
     # Become ourselves again.
     $session->user( { userId => $currentUser->getId } );
     $var->switchAdminOn if $adminOn;
 
+
     return $content;
 }