Manager für PartsGroup mit sort_spec

[mfinanz.git] / SL / DB / PartsGroup.pm

diff --git a/SL/DB/PartsGroup.pm b/SL/DB/PartsGroup.pm
index f81e977a10cffcf6ce1e6a2b732078be66781bcf..f40c5de9629600309e3204d6423de82c6bde8cf9 100644 (file)
--- a/SL/DB/PartsGroup.pm
+++ b/SL/DB/PartsGroup.pm
@@ -6,10 +6,21 @@ package SL::DB::PartsGroup;
 use strict;
 
 use SL::DB::MetaSetup::PartsGroup;
+use SL::DB::Manager::PartsGroup;
+
+__PACKAGE__->meta->add_relationship(
+  custom_variable_configs => {
+    type                  => 'many to many',
+    map_class             => 'SL::DB::CustomVariableConfigPartsgroup',
+  },
+);
 
 __PACKAGE__->meta->initialize;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
-__PACKAGE__->meta->make_manager_class;
+sub displayable_name {
+  my $self = shift;
+
+  return join ' ', grep $_, $self->id, $self->partsgroup;
+}
 
 1;