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

(-)a/t/db_dependent/Letters.t (-2 / +8 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 => 68;
21
use Test::More tests => 69;
22
use Test::MockModule;
22
use Test::MockModule;
23
use Test::Warn;
23
use Test::Warn;
24
24
Lines 331-336 is( $prepared_letter->{content}, q|This one only contains the date: | . output_p Link Here
331
331
332
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<<aqbooksellers.name>>|<<aqcontacts.name>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');});
332
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<<aqbooksellers.name>>|<<aqcontacts.name>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');});
333
333
334
# Test that _parseletter doesn't modify its parameters bug 15429
335
{
336
    my $values = { dateexpiry => '2015-12-13', };
337
    C4::Letters::_parseletter($prepared_letter, 'borrowers', $values);
338
    is( $values->{dateexpiry}, '2015-12-13', "_parseletter doesn't modify its parameters" );
339
}
340
334
my $booksellerid = C4::Bookseller::AddBookseller(
341
my $booksellerid = C4::Bookseller::AddBookseller(
335
    {
342
    {
336
        name => "my vendor",
343
        name => "my vendor",
337
- 

Return to bug 15429