SL/Template/Plugin/LxERP.pm

   1 package SL::Template::Plugin::LxERP;
   2
   3 use base qw( Template::Plugin );
   4 use Scalar::Util qw();
   5 use Template::Plugin;
   6
   7 use List::Util qw(min);
   8
   9 use SL::AM;
  10
  11 use strict;
  12
  13 sub new {
  14   my $class   = shift;
  15   my $context = shift;
  16
  17   bless { }, $class;
  18 }
  19
  20 sub is_rdbo {
  21   my ($self, $obj, $wanted_class) = @_;
  22
  23   $wanted_class = !$wanted_class         ? 'Rose::DB::Object'
  24                 : $wanted_class =~ m{::} ? $wanted_class
  25                 :                          "SL::DB::${wanted_class}";
  26
  27   return Scalar::Util::blessed($obj) ? $obj->isa($wanted_class) : 0;
  28 }
  29
  30 sub format_amount {
  31   my ($self, $var, $places, $skip_zero, $dash) = @_;
  32
  33   return $main::form->format_amount(\%main::myconfig, $var * 1, $places, $dash) unless $skip_zero && $var == 0;
  34   return '';
  35 }
  36
  37 sub round_amount {
  38   my ($self, $var, $places, $skip_zero) = @_;
  39
  40   return $main::form->round_amount($var * 1, $places) unless $skip_zero && $var == 0;
  41   return '';
  42 }
  43
  44 sub format_percent {
  45   my ($self, $var, $places, $skip_zero) = @_;
  46
  47   $places ||= 2;
  48
  49   return $self->format_amount($var * 100, $places, $skip_zero);
  50 }
  51
  52 sub escape_br {
  53   my ($self, $var) = @_;
  54
  55   $var =~ s/\r//g;
  56   $var =~ s/\n/<br>/g;
  57
  58   return $var;
  59 }
  60
  61 sub format_string {
  62   my $self   = shift;
  63   my $string = shift;
  64
  65   return $main::form->format_string($string, @_);
  66 }
  67
  68 sub numtextrows {
  69   my $self = shift;
  70
  71   return $main::form->numtextrows(@_);
  72 }
  73
  74 sub _turn90_word {
  75   my $self = shift;
  76   my $word = shift || "";
  77
  78   return join '<br>', map { $main::locale->quote_special_chars('HTML', $_) } split(m//, $word);
  79 }
  80
  81 sub turn90 {
  82   my $self            = shift;
  83   my $word            = shift;
  84   my $args            = shift;
  85
  86   $args             ||= { };
  87   $word             ||= "";
  88
  89   $args->{split_by} ||= 'chars';
  90   $args->{class}      = " class=\"$args->{class}\"" if ($args->{class});
  91
  92   if ($args->{split_by} eq 'words') {
  93     my @words = split m/\s+/, $word;
  94
  95     if (1 >= scalar @words) {
  96       return $self->_turn90_word($words[0]);
  97     }
  98
  99     return qq|<table><tr>| . join('', map { '<td valign="bottom"' . $args->{class} . '>' . $self->_turn90_word($_) . '</td>' } @words) . qq|</tr></table>|;
 100
 101   } else {
 102     return $self->_turn90_word($word);
 103   }
 104 }
 105
 106 sub abs {
 107   my $self = shift;
 108   my $var  = shift;
 109
 110   return $var < 0 ? $var * -1 : $var;
 111 }
 112
 113 sub t8 {
 114   my ($self, $text, @args) = @_;
 115   return $::locale->text($text, @args) || $text;
 116 }
 117
 118 1;