Убрать цитирование ответов больше >

[lostinbrain]

Приветствую всех. В OTRS имеется цитирование ответов пользователей, по умолчанию знак ">". В админке это Ticket::Frontend::Quote.
Мне необходимо убрать цитирование старше одного письма, то есть убрать все предыдущие ответы с >>, >>>, >>>> и тд, оставить только >. Возможно ли это сделать средствами OTRS?

[alexus]

Добрый день!

Размер цитаты можно ограничить только в знаках.

[lostinbrain]

Добрый день!

Размер цитаты можно ограничить только в знаках.

Можете подсказать где это делается?

Насколько я понял убрать >>, >>>, >>>> без вмешательства в код otrs не удастся.

[lostinbrain]

Если кому интересно, вот решение:

В папке Kernel/Modules файл AgentTicketCompose.pm

добавляем в него функцию:

Код: Выделить всё

sub remove_quotes {
    my ($quote_string) = @_;

    return 0 unless $quote_string;

    my @sentences = split( "\n", $quote_string);

    my $result = "";

    foreach my $d (@sentences) {
        next if $d =~ m/^(>>)|(> >)/gm;
        next if $d eq "";

        $result .= $d . "\n";
    }
    return $result;
}

Дальше в коде где строки:

Код: Выделить всё

            # prepare body, subject, ReplyTo ...
            # rewrap body if exists
            if ( $Data{Body} ) {
                $Data{Body} =~ s/\t/ /g;
                my $Quote = $Self->{ConfigObject}->Get('Ticket::Frontend::Quote');
                if ($Quote) {
                    $Data{Body} =~ s/\n/\n$Quote /g;
                    $Data{Body} = "\n$Quote " . $Data{Body};

у меня они под номерами 828..835, добавляем

Код: Выделить всё

$Data{Body} = remove_quotes( $Data{Body} );

, чтобы получилось:

Код: Выделить всё

            # prepare body, subject, ReplyTo ...
            # rewrap body if exists
            if ( $Data{Body} ) {
                $Data{Body} =~ s/\t/ /g;
                my $Quote = $Self->{ConfigObject}->Get('Ticket::Frontend::Quote');
                if ($Quote) {
                    $Data{Body} =~ s/\n/\n$Quote /g;
                    $Data{Body} = "\n$Quote " . $Data{Body};
                    $Data{Body} = remove_quotes( $Data{Body} );

[merkushov]

Если кому интересно, вот решение:

Красиво