Set a flag when rendering mailings

This commit is contained in:
Martin Kamerbeek 2011-01-14 14:32:15 +01:00
parent cc02178bb7
commit 95d0f9fedb

View file

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