X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/85629633fb54db27d018fe8ae3319257659683c3..d729e3287170e929ff0306855d33b823a692f62d:/SL/CVar.pm

diff --git a/SL/CVar.pm b/SL/CVar.pm
index 240822278..bd58cbd7e 100644
--- a/SL/CVar.pm
+++ b/SL/CVar.pm
@@ -716,6 +716,16 @@ sub parse {
   return $value;
 }
 
+sub format_to_template {
+  my ($self, $value, $config) = @_;
+  # stupid template expects everything formated. except objects
+  # do not use outside of print routines for legacy templates
+
+  return $::form->parse_amount(\%::myconfig, $value) if $config->{type} eq 'number';
+  return $value->to_lxoffice if $config->{type} eq 'date' && blessed $value && $value->can('to_lxoffice');
+  return $value;
+}
+
 1;
 
 __END__