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