| File: | Koha/Template/Plugin/KohaDates.pm |
| Coverage: | 75.0% |
| line | stmt | bran | cond | sub | time | code |
|---|---|---|---|---|---|---|
| 1 | package Koha::Template::Plugin::KohaDates; | |||||
| 2 | ||||||
| 3 | # Copyright Catalyst IT 2011 | |||||
| 4 | ||||||
| 5 | # This file is part of Koha. | |||||
| 6 | # | |||||
| 7 | # Koha is free software; you can redistribute it and/or modify it under the | |||||
| 8 | # terms of the GNU General Public License as published by the Free Software | |||||
| 9 | # Foundation; either version 2 of the License, or (at your option) any later | |||||
| 10 | # version. | |||||
| 11 | # | |||||
| 12 | # Koha is distributed in the hope that it will be useful, but WITHOUT ANY | |||||
| 13 | # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR | |||||
| 14 | # A PARTICULAR PURPOSE. See the GNU General Public License for more details. | |||||
| 15 | # | |||||
| 16 | # You should have received a copy of the GNU General Public License along | |||||
| 17 | # with Koha; if not, write to the Free Software Foundation, Inc., | |||||
| 18 | # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. | |||||
| 19 | ||||||
| 20 | 1 1 1 | 4340 1723 27 | use Template::Plugin::Filter; | |||
| 21 | 1 1 1 | 5 2 61 | use base qw( Template::Plugin::Filter ); | |||
| 22 | ||||||
| 23 | 1 1 1 | 4 2 77 | use C4::Dates; | |||
| 24 | ||||||
| 25 | sub filter { | |||||
| 26 | 0 | my ($self,$text) = @_; | ||||
| 27 | 0 | my $date = C4::Dates->new( $text, 'iso' ); | ||||
| 28 | 0 | return $date->output("syspref"); | ||||
| 29 | } | |||||
| 30 | ||||||
| 31 | 1; | |||||