Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb/I18NFilter.pm

   1 package OpenILS::WWW::EGWeb::I18NFilter;
   2 use Template::Plugin::Filter;
   3 use base qw(Template::Plugin::Filter);
   4 our $DYNAMIC = 1;
   5 our $maketext;
   6
   7 sub filter {
   8     my ($self, $text, $args) = @_;
   9     return $maketext->($text, @$args);
  10 }
  11
  12 sub init {
  13     my $self = shift;
  14     $self->install_filter('l');
  15     return $self;
  16 }
  17
  18 1;
  19