...und das gemoddete Templating
authorSven Schöling <s.schoeling@linet-services.de>
Mon, 22 Oct 2007 15:35:14 +0000 (15:35 +0000)
committerSven Schöling <s.schoeling@linet-services.de>
Mon, 22 Oct 2007 15:35:14 +0000 (15:35 +0000)
SL/Template/Plugin/LxERP.pm [new file with mode: 0644]

diff --git a/SL/Template/Plugin/LxERP.pm b/SL/Template/Plugin/LxERP.pm
new file mode 100644 (file)
index 0000000..a97344a
--- /dev/null
@@ -0,0 +1,27 @@
+package SL::Template::Plugin::LxERP;
+
+use base qw( Template::Plugin );
+use Template::Plugin;
+
+sub new {
+  my $class   = shift;
+  my $context = shift;
+
+  bless { }, $class;
+}
+
+sub format_amount {
+  my ($self, $var, $places, $skip_zero) = @_;
+
+  return $main::form->format_amount(\%main::myconfig, $var * 1, $places) unless $skip_zero && $var == 0;
+  return '';
+}
+
+sub format_percent {
+  my ($self, $var, $places, $skip_zero) = @_;
+
+  return $self->format_amount($var * 100, $places, $skip_zero);
+}
+
+1;
+