|
Lines 357-369
sub SendAlerts {
Link Here
|
| 357 |
$mail->text_body( $letter->{content} ); |
357 |
$mail->text_body( $letter->{content} ); |
| 358 |
} |
358 |
} |
| 359 |
|
359 |
|
|
|
360 |
my $error; |
| 360 |
try { |
361 |
try { |
| 361 |
$mail->send_or_die({ transport => $library->smtp_server->transport }); |
362 |
$mail->send_or_die({ transport => $library->smtp_server->transport }); |
| 362 |
} |
363 |
} |
| 363 |
catch { |
364 |
catch { |
| 364 |
carp "$_"; |
365 |
carp "$_"; |
| 365 |
return { error => "$_" }; |
366 |
$error = $_; |
| 366 |
}; |
367 |
}; |
|
|
368 |
return { error => $error } if $error; |
| 367 |
} |
369 |
} |
| 368 |
} |
370 |
} |
| 369 |
elsif ( $type eq 'claimacquisition' or $type eq 'claimissues' or $type eq 'orderacquisition' ) { |
371 |
elsif ( $type eq 'claimacquisition' or $type eq 'claimissues' or $type eq 'orderacquisition' ) { |
|
Lines 511-523
sub SendAlerts {
Link Here
|
| 511 |
$mail->text_body( "" . $letter->{content} ); |
513 |
$mail->text_body( "" . $letter->{content} ); |
| 512 |
} |
514 |
} |
| 513 |
|
515 |
|
|
|
516 |
my $error; |
| 514 |
try { |
517 |
try { |
| 515 |
$mail->send_or_die({ transport => $library->smtp_server->transport }); |
518 |
$mail->send_or_die({ transport => $library->smtp_server->transport }); |
| 516 |
} |
519 |
} |
| 517 |
catch { |
520 |
catch { |
| 518 |
carp "$_"; |
521 |
carp "$_"; |
| 519 |
return { error => "$_" }; |
522 |
$error = $_; |
| 520 |
}; |
523 |
}; |
|
|
524 |
return { error => $error } if $error; |
| 521 |
|
525 |
|
| 522 |
logaction( |
526 |
logaction( |
| 523 |
"ACQUISITION", |
527 |
"ACQUISITION", |
| 524 |
- |
|
|