SL/Template/Plugin/LxERP.pm

   1 package SL::Template::Plugin::LxERP;
   2
   3 use base qw( Template::Plugin );
   4 use Template::Plugin;
   5 use List::Util qw(first);
   6
   7 sub new {
   8   my $class   = shift;
   9   my $context = shift;
  10
  11   bless { }, $class;
  12 }
  13
  14 sub format_amount {
  15   my ($self, $var, $places, $skip_zero) = @_;
  16
  17   return $main::form->format_amount(\%main::myconfig, $var * 1, $places) unless $skip_zero && $var == 0;
  18   return '';
  19 }
  20
  21 sub format_percent {
  22   my ($self, $var, $places, $skip_zero) = @_;
  23
  24   return $self->format_amount($var * 100, $places, $skip_zero);
  25 }
  26
  27 sub escape_br {
  28   my ($self, $var) = @_;
  29
  30   $var =~ s/\r//g;
  31   $var =~ s/\n/<br>/g;
  32
  33   return $var;
  34 }
  35
  36 1;
  37