Koha/Template/Plugin/I18N.pm

   1 package Koha::Template::Plugin::I18N;
   2
   3 # Copyright BibLibre 2015
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  19
  20 use Modern::Perl;
  21
  22 use base qw( Template::Plugin );
  23
  24 use C4::Context;
  25 use Koha::I18N;
  26
  27 sub t {
  28     my ($self, $msgid) = @_;
  29     return __($msgid);
  30 }
  31
  32 sub tx {
  33     my ($self, $msgid, $vars) = @_;
  34     return __x($msgid, %$vars);
  35 }
  36
  37 sub tn {
  38     my ($self, $msgid, $msgid_plural, $count) = @_;
  39     return __n($msgid, $msgid_plural, $count);
  40 }
  41
  42 sub tnx {
  43     my ($self, $msgid, $msgid_plural, $count, $vars) = @_;
  44     return __nx($msgid, $msgid_plural, $count, %$vars);
  45 }
  46
  47 sub txn {
  48     my ($self, $msgid, $msgid_plural, $count, $vars) = @_;
  49     return __xn($msgid, $msgid_plural, $count, %$vars);
  50 }
  51
  52 sub tp {
  53     my ($self, $msgctxt, $msgid) = @_;
  54     return __p($msgctxt, $msgid);
  55 }
  56
  57 sub tpx {
  58     my ($self, $msgctxt, $msgid, $vars) = @_;
  59     return __px($msgctxt, $msgid, %$vars);
  60 }
  61
  62 sub tnp {
  63     my ($self, $msgctxt, $msgid, $msgid_plural, $count) = @_;
  64     return __np($msgctxt, $msgid, $msgid_plural, $count);
  65 }
  66
  67 sub tnpx {
  68     my ($self, $msgctxt, $msgid, $msgid_plural, $count, $vars) = @_;
  69     return __np($msgctxt, $msgid, $msgid_plural, $count, %$vars);
  70 }
  71
  72 1;