Lines 304-310
$prepared_letter = GetPreparedLetter((
Link Here
|
304 |
substitute => $substitute, |
304 |
substitute => $substitute, |
305 |
repeat => $repeat, |
305 |
repeat => $repeat, |
306 |
)); |
306 |
)); |
307 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.| ); |
307 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 1' ); |
308 |
|
308 |
|
309 |
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp | dateonly>>.' WHERE code = 'test_date';}); |
309 |
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp | dateonly>>.' WHERE code = 'test_date';}); |
310 |
$prepared_letter = GetPreparedLetter(( |
310 |
$prepared_letter = GetPreparedLetter(( |
Lines 315-321
$prepared_letter = GetPreparedLetter((
Link Here
|
315 |
substitute => $substitute, |
315 |
substitute => $substitute, |
316 |
repeat => $repeat, |
316 |
repeat => $repeat, |
317 |
)); |
317 |
)); |
318 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.| ); |
318 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 2' ); |
319 |
|
319 |
|
320 |
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp|dateonly >>.' WHERE code = 'test_date';}); |
320 |
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp|dateonly >>.' WHERE code = 'test_date';}); |
321 |
$prepared_letter = GetPreparedLetter(( |
321 |
$prepared_letter = GetPreparedLetter(( |
Lines 326-332
$prepared_letter = GetPreparedLetter((
Link Here
|
326 |
substitute => $substitute, |
326 |
substitute => $substitute, |
327 |
repeat => $repeat, |
327 |
repeat => $repeat, |
328 |
)); |
328 |
)); |
329 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.| ); |
329 |
is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 3' ); |
330 |
|
330 |
|
331 |
$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>');}); |
331 |
$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 |
|
332 |
|
333 |
- |
|
|