[otrs] Remove [Ticket#] from the subject

9 Dec 2004

      Hi,

I modified the AgentCompose.pm file as documented below. What I did 
appears to work, however, I do not know Perl and was wondering if there 
are any side effects that I should be aware of.

Are the modifications I made correct?

I made the following modifications in:
/opt/otrs/Kernel/Modules/AgentCompose.pm

1. In sub SendEmail I made the following modifications:
     my $TicketHook = $Self->{ConfigObject}->Get('TicketHook') || '';
     $GetParam{Subject} =~ s/^..: //;
     $GetParam{Subject} =~ s/\[$TicketHook: $Tn\] //g;
     $GetParam{Subject} =~ s/^..: //;
     $GetParam{Subject} =~ s/^(.{45}).*$/$1 [...]/;
     # Akbar S. Ahmed - Removed TicketHook from Subject
     # Original line is commented out. Modified line follows.
     #$GetParam{Subject} = "[$TicketHook: $Tn] ".$GetParam{Subject};
     $GetParam{Subject} = "Re: " .$GetParam{Subject};

2. In sub Form I made the following modifications:
     my $TicketHook = $Self->{ConfigObject}->Get('TicketHook') || '';
     $Data{Subject} =~ s/^..: //;
     $Data{Subject} =~ s/\[$TicketHook: $Ticket{TicketNumber}\] //g;
     $Data{Subject} =~ s/^..: //;
     $Data{Subject} =~ s/^(.{45}).*$/$1 [...]/;
     # Akbar S. Ahmed - Removed TicketHook from Subject
     # Original line is commented out. Modified line follows.
     #$Data{Subject} = "[$TicketHook: $Ticket{TicketNumber}] Re: " . 
$Data{Subject};
     $Data{Subject} = "Re: " . $Data{Subject};

Thanks in advance,
Akbar