Attribute Helper umgeschrieben.

[mfinanz.git] / SL / DB / Helpers / AttrNumber.pm

diff --git a/SL/DB/Helpers/AttrNumber.pm b/SL/DB/Helpers/AttrNumber.pm
deleted file mode 100644 (file)
index 6593fb7..0000000
--- a/SL/DB/Helpers/AttrNumber.pm
+++ /dev/null
@@ -1,27 +0,0 @@
-package SL::DB::Helpers::AttrNumber;
-
-use strict;
-
-use Carp;
-use English;
-
-sub define {
-  my $package     = shift;
-  my $attribute   = shift;
-  my %params      = @_;
-
-  $params{places} = 2 if !defined($params{places});
-
-  no strict 'refs';
-  *{ $package . '::' . $attribute . '_as_number' } = sub {
-    my ($self, $string) = @_;
-
-    $self->$attribute($::form->parse_amount(\%::myconfig, $string)) if @_ > 1;
-
-    return $::form->format_amount(\%::myconfig, $self->$attribute, $params{places});
-  };
-
-  return 1;
-}
-
-1;