X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/82515b2d93dc5632f24d6e0b6f8f05f3fd19fbb0..b513b1ef51a01f90bd2a234a69fae4f69013d0f3:/SL/DB/Helpers/Metadata.pm

diff --git a/SL/DB/Helpers/Metadata.pm b/SL/DB/Helpers/Metadata.pm
index 0c1f37419..e6020a287 100644
--- a/SL/DB/Helpers/Metadata.pm
+++ b/SL/DB/Helpers/Metadata.pm
@@ -15,4 +15,20 @@ sub default_manager_base_class {
   return 'SL::DB::Helpers::Manager';
 }
 
+sub initialize {
+  my $self = shift;
+  $self->make_attr_auto_helpers unless $self->is_initialized;
+  $self->SUPER::initialize(@_);
+}
+
+sub make_attr_helpers {
+  my ($self, %params) = @_;
+  SL::DB::Helper::Attr::make($self->class, %params);
+}
+
+sub make_attr_auto_helpers {
+  my ($self) = @_;
+  SL::DB::Helper::Attr::auto_make($self->class);
+}
+
 1;