Lines 285-291
$prepared_letter = GetPreparedLetter((
Link Here
|
285 |
substitute => $substitute, |
285 |
substitute => $substitute, |
286 |
repeat => $repeat, |
286 |
repeat => $repeat, |
287 |
)); |
287 |
)); |
288 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.| ); |
288 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 1' ); |
289 |
|
289 |
|
290 |
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp | dateonly>>.' WHERE code = 'test_date';}); |
290 |
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp | dateonly>>.' WHERE code = 'test_date';}); |
291 |
$prepared_letter = GetPreparedLetter(( |
291 |
$prepared_letter = GetPreparedLetter(( |
Lines 296-302
$prepared_letter = GetPreparedLetter((
Link Here
|
296 |
substitute => $substitute, |
296 |
substitute => $substitute, |
297 |
repeat => $repeat, |
297 |
repeat => $repeat, |
298 |
)); |
298 |
)); |
299 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.| ); |
299 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 2' ); |
300 |
|
300 |
|
301 |
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp|dateonly >>.' WHERE code = 'test_date';}); |
301 |
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp|dateonly >>.' WHERE code = 'test_date';}); |
302 |
$prepared_letter = GetPreparedLetter(( |
302 |
$prepared_letter = GetPreparedLetter(( |
Lines 307-313
$prepared_letter = GetPreparedLetter((
Link Here
|
307 |
substitute => $substitute, |
307 |
substitute => $substitute, |
308 |
repeat => $repeat, |
308 |
repeat => $repeat, |
309 |
)); |
309 |
)); |
310 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.| ); |
310 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 3' ); |
311 |
|
311 |
|
312 |
$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>');}); |
312 |
$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>');}); |
313 |
|
313 |
|
314 |
- |
|
|