SL/Template/Plugin/LxERP.pm

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