Lines 324-330
$prepared_letter = GetPreparedLetter((
Link Here
|
324 |
is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $yesterday_night }) . q|.|, 'dateonly test 3' ); |
324 |
is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $yesterday_night }) . q|.|, 'dateonly test 3' ); |
325 |
|
325 |
|
326 |
$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>');}); |
326 |
$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>');}); |
327 |
$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>');}); |
327 |
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('orderacquisition','TESTACQORDER','Acquisition Order','Order','<<aqbooksellers.name>>|<<aqcontacts.name>>|<<aqbasket.basketname>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');}); |
328 |
|
328 |
|
329 |
# Test that _parseletter doesn't modify its parameters bug 15429 |
329 |
# Test that _parseletter doesn't modify its parameters bug 15429 |
330 |
{ |
330 |
{ |
Lines 361-367
my $booksellerid = $bookseller->id;
Link Here
|
361 |
|
361 |
|
362 |
Koha::Acquisition::Bookseller::Contact->new( { name => 'John Smith', phone => '0123456x1', claimacquisition => 1, orderacquisition => 1, booksellerid => $booksellerid } )->store; |
362 |
Koha::Acquisition::Bookseller::Contact->new( { name => 'John Smith', phone => '0123456x1', claimacquisition => 1, orderacquisition => 1, booksellerid => $booksellerid } )->store; |
363 |
Koha::Acquisition::Bookseller::Contact->new( { name => 'Leo Tolstoy', phone => '0123456x2', claimissues => 1, booksellerid => $booksellerid } )->store; |
363 |
Koha::Acquisition::Bookseller::Contact->new( { name => 'Leo Tolstoy', phone => '0123456x2', claimissues => 1, booksellerid => $booksellerid } )->store; |
364 |
my $basketno = NewBasket($booksellerid, 1); |
364 |
my $basketno = NewBasket($booksellerid, 1, 'Named basket'); |
365 |
|
365 |
|
366 |
my $budgetid = C4::Budgets::AddBudget({ |
366 |
my $budgetid = C4::Budgets::AddBudget({ |
367 |
budget_code => "budget_code_test_letters", |
367 |
budget_code => "budget_code_test_letters", |
Lines 426-432
warning_like {
Link Here
|
426 |
"SendAlerts is using the mocked send_or_die routine (orderacquisition)"; |
426 |
"SendAlerts is using the mocked send_or_die routine (orderacquisition)"; |
427 |
is($err, 1, "Successfully sent order."); |
427 |
is($err, 1, "Successfully sent order."); |
428 |
is($email_object->email->header('To'), 'testemail@mydomain.com', "mailto correct in sent order"); |
428 |
is($email_object->email->header('To'), 'testemail@mydomain.com', "mailto correct in sent order"); |
429 |
is($email_object->email->body, 'my vendor|John Smith|Ordernumber ' . $ordernumber . ' (Silence in the library) (1 ordered)', 'Order notice text constructed successfully'); |
429 |
is($email_object->email->body, 'my vendor|John Smith|Named basket|Ordernumber ' . $ordernumber . ' (Silence in the library) (1 ordered)', 'Order notice text constructed successfully'); |
430 |
|
430 |
|
431 |
my $mocked_koha_email = Test::MockModule->new('Koha::Email'); |
431 |
my $mocked_koha_email = Test::MockModule->new('Koha::Email'); |
432 |
$mocked_koha_email->mock( 'send_or_die', sub { |
432 |
$mocked_koha_email->mock( 'send_or_die', sub { |
433 |
- |
|
|