X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2d7e4203055156dccb2ca3fba82bbb32873ecd2e..f6ed86efee2a0a38b6e88e98fd9d4403fa64ff5e:/SL/DB/GLTransaction.pm

diff --git a/SL/DB/GLTransaction.pm b/SL/DB/GLTransaction.pm
index 352de036d..078e2b981 100644
--- a/SL/DB/GLTransaction.pm
+++ b/SL/DB/GLTransaction.pm
@@ -9,4 +9,13 @@ __PACKAGE__->meta->initialize;
 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
+sub abbreviation {
+  my $self = shift;
+
+  my $abbreviation = $::locale->text('GL Transaction (abbreviation)');
+  $abbreviation   .= "(" . $::locale->text('Storno (one letter abbreviation)') . ")" if $self->storno;
+  return $abbreviation;
+
+}
+
 1;