package Koha::Template::Plugin::KohaDates;

# Copyright Catalyst IT 2011

# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Template::Plugin::Filter;
use base qw( Template::Plugin::Filter );

use Koha::DateUtils qw( dt_from_string output_pref );
use C4::Context;
our $DYNAMIC = 1;

sub filter {
    my ( $self, $text, $args, $config ) = @_;
    return "" unless $text;
    $config->{with_hours} //= 0;

    my $dt = dt_from_string( $text, 'iso' );
    $dt->add( %$_ ) for _parse_config_for_durations($config); # Allow date add/subtract; see _parse_config_for_durations

    return $config->{as_due_date} ?
        output_pref({ dt => $dt, as_due_date => 1, dateformat => $config->{dateformat} }) :
        output_pref({ dt => $dt, dateonly => !$config->{with_hours}, dateformat => $config->{dateformat} });
}

sub _parse_config_for_durations {
# Supports passing things like add_years => 1 or subtract_years => 1
# Same for months, weeks, days, hours, minutes or seconds
# Returns a list of hashrefs like { years => 1 }, { days => -1 } that can be passed to dt->add
    my $config = shift;
    my @results;
    foreach my $entry ( keys %$config ) {
        if( $entry =~ /^(add|subtract)_(years|months|weeks|days|hours|minutes|seconds)$/ ) {
            push @results, { $2 => ( $1 eq 'add' ? 1 : -1 ) * $config->{$entry} };
        }
    }
    return @results;
}

sub datetime_from_string {
    my ( $self, @params ) = @_;
    return dt_from_string( @params );
}

sub output_preference {
    my ( $self, @params ) = @_;
    return output_pref( @params );
}

sub tz {
    return C4::Context->tz->name;
}

1;