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

diff --git a/SL/Presenter/Invoice.pm b/SL/Presenter/Invoice.pm
index f1aaf7f6f..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;
 
@@ -24,7 +24,7 @@ sub ar_transaction {
 sub purchase_invoice {
   my ($self, $invoice, %params) = @_;
 
-  return _is_ir_record($self, $invoice, 'is', %params);
+  return _is_ir_record($self, $invoice, 'ir', %params);
 }
 
 sub ap_transaction {
@@ -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) = @_;