X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FGLTransaction.pm;h=67a4d3acaa643261876a88f5be94f28f2320d87e;hb=83a78eea7bb24102f0b255bd350b7dd343e7a8e4;hp=52c8b6e2e28aff250d9ed84000134546d66b862a;hpb=fcade7254d366eb6483b5640947589d989f01c95;p=kivitendo-erp.git

diff --git a/SL/DB/GLTransaction.pm b/SL/DB/GLTransaction.pm
index 52c8b6e2e..67a4d3aca 100644
--- a/SL/DB/GLTransaction.pm
+++ b/SL/DB/GLTransaction.pm
@@ -28,7 +28,19 @@ sub abbreviation {
   my $abbreviation = $::locale->text('GL Transaction (abbreviation)');
   $abbreviation   .= "(" . $::locale->text('Storno (one letter abbreviation)') . ")" if $self->storno;
   return $abbreviation;
+}
+
+sub link {
+  my ($self) = @_;
+
+  my $html;
+  $html   = SL::Presenter->get->gl_transaction($self, display => 'inline');
+
+  return $html;
+}
 
+sub invnumber {
+  return $_[0]->reference;
 }
 
 1;