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