View | Details | Raw Unified | Return to bug 15969
Collapse All | Expand All

(-)a/C4/Letters.pm (-2 / +2 lines)
Lines 768-775 sub GetPreparedLetter { Link Here
768
768
769
    $letter->{content} = _process_tt(
769
    $letter->{content} = _process_tt(
770
        {
770
        {
771
            content => $letter->{content},
771
            content    => $letter->{content},
772
            tables  => $tables,
772
            tables     => $tables,
773
            substitute => $substitute,
773
            substitute => $substitute,
774
        }
774
        }
775
    );
775
    );
(-)a/t/db_dependent/Letters/TemplateToolkit.t (-2 / +13 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 15;
21
use Test::More tests => 16;
22
use Test::Warn;
22
use Test::Warn;
23
23
24
use MARC::Record;
24
use MARC::Record;
Lines 279-281 $prepared_letter = GetPreparedLetter( Link Here
279
    )
279
    )
280
);
280
);
281
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' );
281
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' );
282
- 
282
283
$sth->execute( "TEST_SUBSTITUTION", "[% SubstituteMe %]" );
284
$prepared_letter = GetPreparedLetter(
285
    (
286
        module      => 'test',
287
        letter_code => 'TEST_SUBSTITUTION',
288
        substitute => {
289
            SubstituteMe => 'Substituted'
290
        }
291
    )
292
);
293
is( $prepared_letter->{content}, 'Substituted', 'Substitution works correctly' );

Return to bug 15969