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