X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/bfb31bebd1bc46ab9ffab3955165c94fa17b08f1..25230b8c8a406c836091f135445f1e1a97dad549:/SL/DB/GLTransaction.pm

diff --git a/SL/DB/GLTransaction.pm b/SL/DB/GLTransaction.pm
index c9f436056..a92271f12 100644
--- a/SL/DB/GLTransaction.pm
+++ b/SL/DB/GLTransaction.pm
@@ -4,6 +4,7 @@ use strict;
 
 use SL::DB::MetaSetup::GLTransaction;
 use SL::Locale::String qw(t8);
+use List::Util qw(sum);
 
 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
@@ -36,14 +37,16 @@ sub displayable_type {
 
 sub oneline_summary {
   my ($self) = @_;
-  return sprintf("%s: %s %s (%s)", $self->abbreviation, $self->description, $self->reference, $_->transdate->to_kivitendo);
+  my $amount =  sum map { $_->amount if $_->amount > 0 } @{$self->transactions};
+  $amount = $::form->format_amount(\%::myconfig, $amount, 2);
+  return sprintf("%s: %s %s %s (%s)", $self->abbreviation, $self->description, $self->reference, $amount, $self->transdate->to_kivitendo);
 }
 
 sub link {
   my ($self) = @_;
 
   my $html;
-  $html   = SL::Presenter->get->gl_transaction($self, display => 'inline');
+  $html   = $self->presenter->gl_transaction(display => 'inline');
 
   return $html;
 }
@@ -52,4 +55,6 @@ sub invnumber {
   return $_[0]->reference;
 }
 
+sub date { goto &gldate }
+
 1;