X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/28fee2e2ebc6746bcfeb47c0318e79789ba1c850..6a12a968761127af91e9da8db7579be2836bcaaa:/SL/Presenter/Invoice.pm

diff --git a/SL/Presenter/Invoice.pm b/SL/Presenter/Invoice.pm
index c07845016..b18c064b7 100644
--- a/SL/Presenter/Invoice.pm
+++ b/SL/Presenter/Invoice.pm
@@ -5,7 +5,7 @@ use strict;
 use parent qw(Exporter);
 
 use Exporter qw(import);
-our @EXPORT = qw(sales_invoice ar_transaction purchase_invoice ap_transaction);
+our @EXPORT = qw(sales_invoice ar_transaction purchase_invoice ap_transaction gl_transaction);
 
 use Carp;
 
@@ -33,6 +33,12 @@ sub ap_transaction {
   return _is_ir_record($self, $invoice, 'ap', %params);
 }
 
+sub gl_transaction {
+  my ($self, $invoice, %params) = @_;
+
+  return _is_ir_record($self, $invoice, 'gl', %params);
+}
+
 sub _is_ir_record {
   my ($self, $invoice, $controller, %params) = @_;