projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
DATEV: Unsaubere if-Bedingung optimiert
[kivitendo-erp.git]
/
SL
/
Presenter
/
Invoice.pm
diff --git
a/SL/Presenter/Invoice.pm
b/SL/Presenter/Invoice.pm
index
151f500
..
ebde34f
100644
(file)
--- a/
SL/Presenter/Invoice.pm
+++ b/
SL/Presenter/Invoice.pm
@@
-5,7
+5,7
@@
use strict;
use parent qw(Exporter);
use Exporter qw(import);
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;
use Carp;
@@
-51,12
+51,6
@@
sub ap_transaction {
return _is_ir_record($self, $invoice, 'ap', %params);
}
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) = @_;
sub _is_ir_record {
my ($self, $invoice, $controller, %params) = @_;