X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8c7e44938a661e035f62840e1e177353240ace5d..06211d74ea81c20cd935a9f35df45a6f76590692:/SL/Template/Plugin/LxERP.pm

diff --git a/SL/Template/Plugin/LxERP.pm b/SL/Template/Plugin/LxERP.pm
index a6bd06a80..acb3f4d2e 100644
--- a/SL/Template/Plugin/LxERP.pm
+++ b/SL/Template/Plugin/LxERP.pm
@@ -15,9 +15,9 @@ sub new {
 }
 
 sub format_amount {
-  my ($self, $var, $places, $skip_zero) = @_;
+  my ($self, $var, $places, $skip_zero, $dash) = @_;
 
-  return $main::form->format_amount(\%main::myconfig, $var * 1, $places) unless $skip_zero && $var == 0;
+  return $main::form->format_amount(\%main::myconfig, $var * 1, $places, $dash) unless $skip_zero && $var == 0;
   return '';
 }
 
@@ -62,7 +62,7 @@ sub _turn90_word {
   my $self = shift;
   my $word = shift || "";
 
-  return join '<br>', map { $main::form->quote_html($_) } split(m//, $word);
+  return join '<br>', map { $main::locale->quote_special_chars('HTML', $_) } split(m//, $word);
 }
 
 sub turn90 {
@@ -90,4 +90,11 @@ sub turn90 {
   }
 }
 
+sub abs {
+  my $self = shift;
+  my $var  = shift;
+
+  return $var < 0 ? $var * -1 : $var;
+}
+
 1;