From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 17 Jun 2016 12:43:24 +0000 (+0200)
Subject: Helper::Csv: is_known in dispatcher gefixt
X-Git-Tag: release-3.4.1~39
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=fb1a574bce8ee7a490206e97daea76dcf214c6db;p=kivitendo-erp.git

Helper::Csv: is_known in dispatcher gefixt
---

diff --git a/SL/Helper/Csv/Dispatcher.pm b/SL/Helper/Csv/Dispatcher.pm
index a0f59fc81..418c184df 100644
--- a/SL/Helper/Csv/Dispatcher.pm
+++ b/SL/Helper/Csv/Dispatcher.pm
@@ -99,8 +99,8 @@ sub apply {
 }
 
 sub is_known {
-  my ($self, $col) = @_;
-  return grep { $col eq $_->{key} } $self->_specs;
+  my ($self, $col, $row) = @_;
+  return grep { $col eq $_->{key} } @{ $self->_specs->[$row // 0] };
 }
 
 sub parse_profile {