|
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' ); |