82 lines
2.5 KiB
Perl
82 lines
2.5 KiB
Perl
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 <https://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;
|
|
}
|
|
|
|
sub strftime { # used as TT virtual method for scalars, wrapper around DateTime counterpart
|
|
my ( $self, $value, $format, $locale ) = @_;
|
|
my $dt = eval { dt_from_string($value) };
|
|
if ($dt) {
|
|
$dt->set_locale($locale) if $locale;
|
|
return $dt->strftime($format);
|
|
}
|
|
return $value;
|
|
}
|
|
|
|
1;
|