|
Lines 21-28
use Koha::Database;
Link Here
|
| 21 |
use Koha::Exceptions::Object; |
21 |
use Koha::Exceptions::Object; |
| 22 |
use Koha::SMTP::Servers; |
22 |
use Koha::SMTP::Servers; |
| 23 |
|
23 |
|
| 24 |
use Email::Sender::Transport::SMTP; |
|
|
| 25 |
|
| 26 |
use base qw(Koha::Object); |
24 |
use base qw(Koha::Object); |
| 27 |
|
25 |
|
| 28 |
=head1 NAME |
26 |
=head1 NAME |
|
Lines 66-71
sub transport {
Link Here
|
| 66 |
|
64 |
|
| 67 |
$params->{debug} = $self->debug; |
65 |
$params->{debug} = $self->debug; |
| 68 |
|
66 |
|
|
|
67 |
require Email::Sender::Transport::SMTP; |
| 69 |
my $transport = Email::Sender::Transport::SMTP->new( $params ); |
68 |
my $transport = Email::Sender::Transport::SMTP->new( $params ); |
| 70 |
|
69 |
|
| 71 |
return $transport; |
70 |
return $transport; |
| 72 |
- |
|
|