X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ca808f20934dff10009cdaf2d6f1cfa7ccf18920..ce15be44bdc43e0e7221ff2f9cae67ad4747ef03:/SL/DB/InvoiceItem.pm

diff --git a/SL/DB/InvoiceItem.pm b/SL/DB/InvoiceItem.pm
index 1a18abc2b..a20f56fc9 100644
--- a/SL/DB/InvoiceItem.pm
+++ b/SL/DB/InvoiceItem.pm
@@ -36,4 +36,12 @@ __PACKAGE__->meta->add_relationships(
 
 __PACKAGE__->meta->initialize;
 
+sub record {
+  my ($self) = @_;
+
+  return $self->invoice          if $self->invoice;
+  return $self->purchase_invoice if $self->purchase_invoice;
+  return;
+};
+
 1;