|
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 |
- |
|
|