diff --git a/Koha/Template/Plugin/KohaDates.pm b/Koha/Template/Plugin/KohaDates.pm index a5a48b6c92..d8c31beec5 100644 --- a/Koha/Template/Plugin/KohaDates.pm +++ b/Koha/Template/Plugin/KohaDates.pm @@ -53,6 +53,11 @@ sub _parse_config_for_durations { return @results; } +sub datetime_from_string { + my ( $self, @params ) = @_; + return dt_from_string( @params ); +} + sub output_preference { my ( $self, @params ) = @_; return output_pref( @params ); diff --git a/t/db_dependent/Letters/TemplateToolkit.t b/t/db_dependent/Letters/TemplateToolkit.t index b807803db8..8c7f38c979 100755 --- a/t/db_dependent/Letters/TemplateToolkit.t +++ b/t/db_dependent/Letters/TemplateToolkit.t @@ -19,7 +19,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 31; +use Test::More tests => 32; use Test::MockModule; use Test::Warn; @@ -1193,6 +1193,32 @@ EOF is( $letter->{content}, $expected_content ); }; +subtest 'KohaDates::dt_from_string' => sub { + plan tests => 1; + my $code = 'TEST_DATE'; + t::lib::Mocks::mock_preference('dateformat', 'metric'); # MM/DD/YYYY + my $biblio = $builder->build_object( + { + class => 'Koha::Biblios', + value => { + timestamp => '2018-12-13 20:21:22', + datecreated => '2018-12-13' + } + } + ); + my $template = q{[% USE KohaDates %][% KohaDates.datetime_from_string('2000-12-01').dmy %]}; + + reset_template({ template => $template, code => $code, module => 'test' }); + my $letter = GetPreparedLetter( + module => 'test', + letter_code => $code, + tables => { + biblio => $biblio->biblionumber, + } + ); + is( $letter->{content}, '01-12-2000' ); +}; + subtest 'Execute TT process in a DB transaction' => sub { plan tests => 2; my $code = 'TEST_TXN';