Lines 18-24
Link Here
|
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
use Test::More tests => 58; |
21 |
use Test::More tests => 60; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
|
24 |
|
Lines 173-178
is( $letter->{title}, $title, 'GetLetters gets the title correctly' );
Link Here
|
173 |
is( $letter->{content}, $content, 'GetLetters gets the content correctly' ); |
173 |
is( $letter->{content}, $content, 'GetLetters gets the content correctly' ); |
174 |
is( $letter->{message_transport_type}, 'email', 'GetLetters gets the message type correctly' ); |
174 |
is( $letter->{message_transport_type}, 'email', 'GetLetters gets the message type correctly' ); |
175 |
|
175 |
|
|
|
176 |
# Regression test for Bug 14206 |
177 |
$dbh->do( q|INSERT INTO letter(branchcode,module,code,name,is_html,title,content,message_transport_type) VALUES ('FFL','my module','my code','my name',1,?,?,'print')|, undef, $title, $content ); |
178 |
my $letter14206_a = C4::Letters::getletter('my module', 'my code', 'FFL' ); |
179 |
is( $letter14206_a->{message_transport_type}, 'print', 'Bug 14206 - message_transport_type not passed, correct mtt detected' ); |
180 |
my $letter14206_b = C4::Letters::getletter('my module', 'my code', 'FFL', 'print'); |
181 |
is( $letter14206_b->{message_transport_type}, 'print', 'Bug 14206 - message_transport_type passed, correct mtt detected' ); |
176 |
|
182 |
|
177 |
# addalert |
183 |
# addalert |
178 |
my $type = 'my type'; |
184 |
my $type = 'my type'; |
179 |
- |
|
|