X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/53593baa211863fbf66540cf1bcc36c8fb37257f..f217d072d76183bc07723dcc29503b732bd2022d:/SL/DB/GLTransaction.pm

diff --git a/SL/DB/GLTransaction.pm b/SL/DB/GLTransaction.pm
index 1dbf2c813..06263378b 100644
--- a/SL/DB/GLTransaction.pm
+++ b/SL/DB/GLTransaction.pm
@@ -4,15 +4,13 @@ use strict;
 
 use SL::DB::Helper::LinkedRecords;
 use SL::DB::MetaSetup::GLTransaction;
+use SL::DB::Manager::GLTransaction;
 use SL::Locale::String qw(t8);
 use List::Util qw(sum);
 use SL::DATEV;
 use Carp;
 use Data::Dumper;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
-__PACKAGE__->meta->make_manager_class;
-
 __PACKAGE__->meta->add_relationship(
   transactions   => {
     type         => 'one to many',
@@ -27,6 +25,10 @@ __PACKAGE__->meta->add_relationship(
 
 __PACKAGE__->meta->initialize;
 
+sub record_type {return 'gl_transaction';}
+sub record_number {goto &id;}
+sub displayable_name {goto &oneline_summary;}
+
 sub abbreviation {
   my $self = shift;
 
@@ -152,7 +154,7 @@ sub add_chart_booking {
     $taxamount *= -1;
   };
 
-  next unless $netamount; # skip entries with netamount 0
+  return unless $netamount; # skip entries with netamount 0
 
   # initialise transactions if it doesn't exist yet
   $self->transactions([]) unless $self->transactions;