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

(-)a/t/db_dependent/Letters.t (-2 / +27 lines)
Lines 18-30 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 => 83;
21
use Test::More tests => 84;
22
use Test::MockModule;
22
use Test::MockModule;
23
use Test::Warn;
23
use Test::Warn;
24
24
25
use Email::Sender::Failure;
25
use Email::Sender::Failure;
26
26
27
use MARC::Record;
27
use MARC::Record;
28
use Locale::Currency::Format;
28
29
29
use utf8;
30
use utf8;
30
31
Lines 57-62 use Koha::Libraries; Link Here
57
use Koha::Notice::Templates;
58
use Koha::Notice::Templates;
58
use Koha::Patrons;
59
use Koha::Patrons;
59
use Koha::Subscriptions;
60
use Koha::Subscriptions;
61
use Koha::Account;
62
use Koha::Account::Lines;
60
my $schema = Koha::Database->schema;
63
my $schema = Koha::Database->schema;
61
$schema->storage->txn_begin();
64
$schema->storage->txn_begin();
62
65
Lines 366-371 is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $ye Link Here
366
$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>');});
369
$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>');});
367
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('orderacquisition','TESTACQORDER','Acquisition Order','Order','<<aqbooksellers.name>>|<<aqcontacts.name>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');});
370
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('orderacquisition','TESTACQORDER','Acquisition Order','Order','<<aqbooksellers.name>>|<<aqcontacts.name>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');});
368
371
372
# Test borrowers.account_balance
373
my $account = Koha::Account->new({ patron_id => $borrowernumber });
374
$account->add_debit({ amount => 10, interface => 'test', type => 'OVERDUE'})->store;
375
$account->add_debit({ amount => 15, interface => 'test', type => 'OVERDUE'})->store;
376
377
my $lines = Koha::Account::Lines->search({ borrowernumber => $borrowernumber });
378
my $totalfine = $lines->total_outstanding;
379
my $active_currency = Koha::Acquisition::Currencies->get_active;
380
my $currency_format = $active_currency->currency if defined($active_currency);
381
my $totalfine_formatted = currency_format($currency_format, "$totalfine", FMT_SYMBOL);
382
$totalfine_formatted = sprintf("%.2f", $totalfine) unless $totalfine_formatted;
383
384
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('test_fines','TEST_FINES','Test total of fines','','Total of fines is: <<borrowers.account_balance>>.');});
385
$prepared_letter = GetPreparedLetter((
386
    module                 => 'test_fines',
387
    branchcode             => '',
388
    letter_code            => 'test_fines',
389
    tables                 => $tables,
390
    substitute             => $substitute,
391
    repeat                 => $repeat,
392
));
393
is( $prepared_letter->{content}, q|Total of fines is: | . $totalfine_formatted . q|.|, 'Account balance is printed correctly' );
394
369
# Test that _parseletter doesn't modify its parameters bug 15429
395
# Test that _parseletter doesn't modify its parameters bug 15429
370
{
396
{
371
    my $values = { dateexpiry => '2015-12-13', };
397
    my $values = { dateexpiry => '2015-12-13', };
372
- 

Return to bug 13961