|
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 65-70
sub transport {
Link Here
|
| 65 |
if $self->password; |
63 |
if $self->password; |
| 66 |
|
64 |
|
| 67 |
|
65 |
|
|
|
66 |
require Email::Sender::Transport::SMTP; |
| 68 |
my $transport = Email::Sender::Transport::SMTP->new( $params ); |
67 |
my $transport = Email::Sender::Transport::SMTP->new( $params ); |
| 69 |
|
68 |
|
| 70 |
return $transport; |
69 |
return $transport; |
| 71 |
- |
|
|