|
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 => 72; |
21 |
use Test::More tests => 73; |
| 22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
| 23 |
use Test::Warn; |
23 |
use Test::Warn; |
| 24 |
|
24 |
|
|
Lines 306-312
$prepared_letter = GetPreparedLetter((
Link Here
|
| 306 |
$my_content_letter = qq|This is a SMS for an $substitute->{status}|; |
306 |
$my_content_letter = qq|This is a SMS for an $substitute->{status}|; |
| 307 |
is( $prepared_letter->{content}, $my_content_letter, 'GetPreparedLetter returns the content correctly' ); |
307 |
is( $prepared_letter->{content}, $my_content_letter, 'GetPreparedLetter returns the content correctly' ); |
| 308 |
|
308 |
|
| 309 |
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('test_date','TEST_DATE','Test dates','Test dates','This one only contains the date: <<biblio.timestamp | dateonly>>.');}); |
309 |
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('test_date','TEST_DATE','Test dates','A title with a timestamp: <<biblio.timestamp>>','This one only contains the date: <<biblio.timestamp | dateonly>>.');}); |
| 310 |
$prepared_letter = GetPreparedLetter(( |
310 |
$prepared_letter = GetPreparedLetter(( |
| 311 |
module => 'test_date', |
311 |
module => 'test_date', |
| 312 |
branchcode => '', |
312 |
branchcode => '', |
|
Lines 339-344
$prepared_letter = GetPreparedLetter((
Link Here
|
| 339 |
)); |
339 |
)); |
| 340 |
is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 3' ); |
340 |
is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 3' ); |
| 341 |
|
341 |
|
|
|
342 |
t::lib::Mocks::mock_preference( 'TimeFormat', '12hr' ); |
| 343 |
my $yesterday_night = $date->clone->add( days => -1 )->set_hour(22); |
| 344 |
$dbh->do(q|UPDATE biblio SET timestamp = ? WHERE biblionumber = ?|, undef, $yesterday_night, $biblionumber ); |
| 345 |
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp>>.' WHERE code = 'test_date';}); |
| 346 |
$prepared_letter = GetPreparedLetter(( |
| 347 |
module => 'test_date', |
| 348 |
branchcode => '', |
| 349 |
letter_code => 'test_date', |
| 350 |
tables => $tables, |
| 351 |
substitute => $substitute, |
| 352 |
repeat => $repeat, |
| 353 |
)); |
| 354 |
is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $yesterday_night }) . q|.|, 'dateonly test 3' ); |
| 355 |
|
| 342 |
$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>');}); |
356 |
$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>');}); |
| 343 |
|
357 |
|
| 344 |
# Test that _parseletter doesn't modify its parameters bug 15429 |
358 |
# Test that _parseletter doesn't modify its parameters bug 15429 |
| 345 |
- |
|
|