"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Kernel/Modules/AgentTicketEmailOutbound.pm" between
otrs-5.0.39.tar.bz2 and otrs-5.0.40.tar.bz2

About: OTRS (formerly "Open Ticket Request System" now "Open Technology – Real Service") is a web-based ticketing systems used for Customer Service, Help Desk, IT Service Management. 5.x release ("Community Edition").

AgentTicketEmailOutbound.pm  (otrs-5.0.39.tar.bz2):AgentTicketEmailOutbound.pm  (otrs-5.0.40.tar.bz2)
skipping to change at line 1072 skipping to change at line 1072
); );
# get errors # get errors
%Error = ( %Error = (
%Error, %Error,
$Object->Error( %GetParam, Config => $Jobs{$Job} ), $Object->Error( %GetParam, Config => $Jobs{$Job} ),
); );
} }
} }
my $From = $Kernel::OM->Get('Kernel::System::TemplateGenerator')->Sender(
QueueID => $Ticket{QueueID},
UserID => $Self->{UserID},
);
# check if there is an error # check if there is an error
if (%Error) { if (%Error) {
my $QueueID = $TicketObject->TicketQueueID( TicketID => $Self->{TicketID } ); my $QueueID = $TicketObject->TicketQueueID( TicketID => $Self->{TicketID } );
my $Output = $LayoutObject->Header( my $Output = $LayoutObject->Header(
Type => 'Small', Type => 'Small',
BodyClass => 'Popup', BodyClass => 'Popup',
); );
$Output .= $Self->_Mask( $Output .= $Self->_Mask(
TicketNumber => $Ticket{TicketNumber}, TicketNumber => $Ticket{TicketNumber},
skipping to change at line 1176 skipping to change at line 1181
# get article type ID param # get article type ID param
my $ArticleTypeID = $ParamObject->GetParam( Param => 'ArticleTypeID' ); my $ArticleTypeID = $ParamObject->GetParam( Param => 'ArticleTypeID' );
my $ArticleID = $TicketObject->ArticleSend( my $ArticleID = $TicketObject->ArticleSend(
ArticleTypeID => $ArticleTypeID, ArticleTypeID => $ArticleTypeID,
SenderType => 'agent', SenderType => 'agent',
TicketID => $Self->{TicketID}, TicketID => $Self->{TicketID},
HistoryType => 'EmailAgent', HistoryType => 'EmailAgent',
HistoryComment => "\%\%$To", HistoryComment => "\%\%$To",
From => $GetParam{From}, From => $From,
To => $GetParam{To}, To => $GetParam{To},
Cc => $GetParam{Cc}, Cc => $GetParam{Cc},
Bcc => $GetParam{Bcc}, Bcc => $GetParam{Bcc},
Subject => $GetParam{Subject}, Subject => $GetParam{Subject},
UserID => $Self->{UserID}, UserID => $Self->{UserID},
Body => $GetParam{Body}, Body => $GetParam{Body},
# We start a new communication here, so don't send any references. # We start a new communication here, so don't send any references.
# This might lead to information disclosure (domain names; see bug#112 46). # This might lead to information disclosure (domain names; see bug#112 46).
InReplyTo => '', InReplyTo => '',
skipping to change at line 1933 skipping to change at line 1938
sub _GetExtendedParams { sub _GetExtendedParams {
my ( $Self, %Param ) = @_; my ( $Self, %Param ) = @_;
# get param object # get param object
my $ParamObject = $Kernel::OM->Get('Kernel::System::Web::Request'); my $ParamObject = $Kernel::OM->Get('Kernel::System::Web::Request');
# get params # get params
my %GetParam; my %GetParam;
for my $Key ( for my $Key (
qw(From To Cc Bcc Subject Body ComposeStateID ArticleTypeID qw(To Cc Bcc Subject Body ComposeStateID ArticleTypeID
ArticleID TimeUnits Year Month Day Hour Minute FormID) ArticleID TimeUnits Year Month Day Hour Minute FormID)
) )
{ {
my $Value = $ParamObject->GetParam( Param => $Key ); my $Value = $ParamObject->GetParam( Param => $Key );
if ( defined $Value ) { if ( defined $Value ) {
$GetParam{$Key} = $Value; $GetParam{$Key} = $Value;
} }
} }
$GetParam{EmailTemplateID} = $ParamObject->GetParam( Param => 'EmailTemplate ID' ) || ''; $GetParam{EmailTemplateID} = $ParamObject->GetParam( Param => 'EmailTemplate ID' ) || '';
 End of changes. 3 change blocks. 
2 lines changed or deleted 7 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)