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 => 14;
21
use Test::More tests => 15;
22
22
23
use MARC::Record;
23
use MARC::Record;
24
24
Lines 264-266 $prepared_letter = GetPreparedLetter( Link Here
264
    )
264
    )
265
);
265
);
266
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' );
266
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' );
267
- 
267
268
$sth->execute( "TEST_SUBSTITUTION", "[% SubstituteMe %]" );
269
$prepared_letter = GetPreparedLetter(
270
    (
271
        module      => 'test',
272
        letter_code => 'TEST_SUBSTITUTION',
273
        substitute => {
274
            SubstituteMe => 'Substituted'
275
        }
276
    )
277
);
278
is( $prepared_letter->{content}, 'Substituted', 'Substitution works correctly' );

Return to bug 15969