<html>
<body>
Hi Doro,<br><br>
It sounds like the template isn't getting the original subject line from
$Ticket->Transactions->First->Subject. Try it without
stripping the token and see what happens. Replace <br>
<blockquote type=cite class=cite cite=""> my $Subject =
$RT::DisableSubjectToken; </blockquote><br>
with<br>
my $Subject = '"";<br><br>
You can also use<br>
$RT::Logger->debug("Subject is
=$Subject=");<br><br>
to log what is happening.<br><br>
This will help focus the problem area.<br><br>
Gene<br><br>
At 05:28 PM 10/31/2007, Dorothea Muecke-Herzberg wrote:<br>
<blockquote type=cite class=cite cite="">Thank you all very much for your
pointers. I've decided to implement the SendEmail overlay from Gene,
because it seems to give me exactly what I need.<br><br>
Gene, I've got it almost working, my only problem is that the original
subject line gets stripped as well, only the prefix part of the subject
from my template gets through. <br><br>
<br>
My template is:<br>
{<br>
my $ToAddress =
'<a href="mailto:dtb@dummy.org">dtb@dummy.org</a>';<br>
my $FromAddress = $Ticket->CreatorObj->EmailAddress;<br>
my $Subject = $RT::DisableSubjectToken; <br>
$Subject .= 'dummy' .
$Ticket->Transactions->First->Subject;<br>
my $Content =
$Ticket->Transactions->First->Content();<br>
$OUT = "From: $FromAddress\n";<br>
$OUT .= "To: $ToAddress\n"; <br>
$OUT .= "Reply-To: $FromAddress\n";<br>
$OUT .= "Subject: $Subject\n\n";<br>
$OUT .= "$Content\n";<br>
}<br><br>
SendEmail_Local.pm looks like this:<br><br>
use strict;<br>
no warnings qw(redefine); <br><br>
sub SetSubjectToken {<br>
my $self = shift;<br>
my $tag = "[$RT::rtname #" .
$self->TicketObj->id . "] ";<br>
my $sub =
$self->TemplateObj->MIMEObj->head->get('Subject'); <br>
my $no_rt_flag = $RT::DisableSubjectToken if
$RT::DisableSubjectToken;<br><br>
unless ( $sub =~ /\Q$tag\E/ ) {<br>
$sub =~ s/(\r\n|\n|\s)/
/gi;<br>
chomp $sub;<br><br>
if ( $no_rt_flag &&
$sub =~ /^\Q$no_rt_flag\E/ ) { <br>
$sub =~
s/(\Q$no_rt_flag\E)//;<br>
$tag = '';<br>
}<br>
$self->TemplateObj->MIMEObj->head->replace( 'Subject', $tag .
$sub );<br>
}<br>
}<br><br>
1;<br><br>
And the email header is:<br><br>
From: <a href="mailto:dmh@ngat.com">dmh@ngat.com</a> <br>
To: <a href="mailto:lco@kdna.com">lco@kdna.com</a> <br>
Reply-To: <a href="mailto:dmh@ngat.com">dmh@ngat.com</a> <br>
Subject: dummy <br><br>
Somewhere the original subject gets lost. Any ideas why?<br><br>
(I am running RT 3.6.5)<br><br>
Thanks,<br><br>
Doro</blockquote>
<x-sigsep><p></x-sigsep>
<br>
-- <br>
Gene LeDuc, GSEC<br>
Security Analyst<br>
San Diego State University</body>
</html>