|
Lines 451-459
sub GetPreparedLetter {
Link Here
|
| 451 |
my $module = $params{module} or croak "No module"; |
451 |
my $module = $params{module} or croak "No module"; |
| 452 |
my $letter_code = $params{letter_code} or croak "No letter_code"; |
452 |
my $letter_code = $params{letter_code} or croak "No letter_code"; |
| 453 |
my $branchcode = $params{branchcode} || ''; |
453 |
my $branchcode = $params{branchcode} || ''; |
|
|
454 |
my $mtt = $params{message_transport_type} || 'email'; |
| 454 |
|
455 |
|
| 455 |
my $letter = getletter( $module, $letter_code, $branchcode, $params{message_transport_type} ) |
456 |
my $letter = getletter( $module, $letter_code, $branchcode, $mtt ) |
| 456 |
or warn( "No $module $letter_code letter"), |
457 |
or warn( "No template $mtt for $module $letter_code letter"), |
| 457 |
return; |
458 |
return; |
| 458 |
|
459 |
|
| 459 |
my $tables = $params{tables}; |
460 |
my $tables = $params{tables}; |
| 460 |
- |
|
|