X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FTemplate%2FPlugin%2FLxERP.pm;h=66424fc6332a7b0d3ccc52c2c313aa43da497d1d;hb=b74d1c197c8365b14587838d999244274de12884;hp=c26988beb3405c23580eee98a1a92d30a6e488f3;hpb=7130d91ec4941cad5aba49bdd39911a2d5fa9a89;p=kivitendo-erp.git

diff --git a/SL/Template/Plugin/LxERP.pm b/SL/Template/Plugin/LxERP.pm
index c26988beb..66424fc63 100644
--- a/SL/Template/Plugin/LxERP.pm
+++ b/SL/Template/Plugin/LxERP.pm
@@ -1,6 +1,7 @@
 package SL::Template::Plugin::LxERP;
 
 use base qw( Template::Plugin );
+use Scalar::Util qw();
 use Template::Plugin;
 
 use List::Util qw(min);
@@ -16,6 +17,16 @@ sub new {
   bless { }, $class;
 }
 
+sub is_rdbo {
+  my ($self, $obj, $wanted_class) = @_;
+
+  $wanted_class = !$wanted_class         ? 'Rose::DB::Object'
+                : $wanted_class =~ m{::} ? $wanted_class
+                :                          "SL::DB::${wanted_class}";
+
+  return Scalar::Util::blessed($obj) ? $obj->isa($wanted_class) : 0;
+}
+
 sub format_amount {
   my ($self, $var, $places, $skip_zero, $dash) = @_;
 
@@ -30,18 +41,11 @@ sub round_amount {
   return '';
 }
 
-sub format_amount_units {
-  my ($self, $amount, $amount_unit, $part_unit) = @_;
-
-  return $main::form->format_amount_units('amount'      => $amount,
-                                          'part_unit'   => $part_unit,
-                                          'amount_unit' => $amount_unit,
-                                          'conv_units'  => 'convertible_not_smaller');
-}
-
 sub format_percent {
   my ($self, $var, $places, $skip_zero) = @_;
 
+  $places ||= 2;
+
   return $self->format_amount($var * 100, $places, $skip_zero);
 }
 
@@ -106,4 +110,9 @@ sub abs {
   return $var < 0 ? $var * -1 : $var;
 }
 
+sub t8 {
+  my ($self, $text, @args) = @_;
+  return $::locale->text($text, @args) || $text;
+}
+
 1;