%# BEGIN LICENSE BLOCK
%# 
%# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
%# 
%# (Except where explictly superceded by other copyright notices)
%# 
%# This work is made available to you under the terms of Version 2 of
%# the GNU General Public License. A copy of that license should have
%# been provided with this software, but in any event can be snarfed
%# from www.gnu.org
%# 
%# This work is distributed in the hope that it will be useful, but
%# WITHOUT ANY WARRANTY; without even the implied warranty of
%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
%# General Public License for more details.
%# 
%# 
%# Unless otherwise specified, all modifications, corrections or
%# extensions to this work which alter its source code become the
%# property of Best Practical Solutions, LLC when submitted for
%# inclusion in the work.
%# 
%# 
%# END LICENSE BLOCK
<%INIT>
my %Include = map { lc( $_ ) => 1 } grep $_, @Include;

while ( my $Transaction = $Transactions->Next ) {
    my $type = $Transaction->Type;
    next if keys %Include && !$Include{ lc $type };
    next if $type eq 'CustomField' and substr($Transaction->BriefDescription, 0, 6) eq '_RTIR_';
    next unless my $ContentObj = $Transaction->ContentObj;

    if ( $ShowHeaders ) {
        my $headers = $ContentObj->Parent?
            $ContentObj->ParentObj->NiceHeaders:
            $ContentObj->NiceHeaders;
        # localize the common headers (like 'Subject:')
        $headers =~ s/^(?![ \t])([^:]+)(?=:)/loc($1)/em;
        $m->print( $headers );
    }

    my $content = $Transaction->Content( Quote => $QuoteText );
    $content =~ s/\s+\z//;
    $m->print( $content );
    $m->print( "\n\n" );
}
</%INIT>
<%ARGS>
$Transactions => undef
$ShowHeaders  => 0
@Include      => ()
$QuoteText    => undef
</%ARGS>
