a9ded4fa00
Branches can have their own version of notices - added branchcode to letter table. Support html notices - added is_html to letter table. Support for borrower attributes in templates. GetPreparedletter() is the interface for compiling letters (notices). Sysprefs for notice and slips stylesheets Added TRANSFERSLIP to the letters Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
32 lines
603 B
Perl
32 lines
603 B
Perl
package KohaTest::Letters::GetLetter;
|
|
use base qw( KohaTest::Letters );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use C4::Letters;
|
|
use Test::More;
|
|
|
|
sub GetLetter : Test( 6 ) {
|
|
my $self = shift;
|
|
|
|
my $letter = getletter( 'circulation', 'ODUE', '' );
|
|
|
|
isa_ok( $letter, 'HASH' )
|
|
or diag( Data::Dumper->Dump( [ $letter ], [ 'letter' ] ) );
|
|
|
|
is( $letter->{'code'}, 'ODUE', 'code' );
|
|
is( $letter->{'module'}, 'circulation', 'module' );
|
|
ok( exists $letter->{'content'}, 'content' );
|
|
ok( exists $letter->{'name'}, 'name' );
|
|
ok( exists $letter->{'title'}, 'title' );
|
|
|
|
}
|
|
|
|
1;
|
|
|
|
|
|
|
|
|
|
|
|
|