X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPresenter%2FInvoice.pm;h=ebde34f1d0d933c614e49de334b3daa6c35fbe48;hb=58190585c35976c33c0594e920251ec8f7e3d40e;hp=151f500eb6f4da29e51eabfbe3ecfc6d71f8a313;hpb=15f58ff3dfd79651a95535b53f864ea0e8cb6620;p=kivitendo-erp.git

diff --git a/SL/Presenter/Invoice.pm b/SL/Presenter/Invoice.pm
index 151f500eb..ebde34f1d 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(invoice sales_invoice ar_transaction purchase_invoice ap_transaction gl_transaction);
+our @EXPORT = qw(invoice sales_invoice ar_transaction purchase_invoice ap_transaction);
 
 use Carp;
 
@@ -51,12 +51,6 @@ 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) = @_;