X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FMT940.pm;h=2a97e5e797461d5e585057a0757ab95a69a19e2e;hb=502a10d47975bb857364282ac2bfe7f995b21a86;hp=dd965deeab01f052bafe42e21ece0073f4497ced;hpb=429a7c2179e2c3c4fe9bfcbb52ebb22e55c8519a;p=kivitendo-erp.git

diff --git a/SL/MT940.pm b/SL/MT940.pm
index dd965deea..2a97e5e79 100644
--- a/SL/MT940.pm
+++ b/SL/MT940.pm
@@ -24,7 +24,7 @@ sub _join_entries {
 }
 
 sub parse {
-  my ($class, $file_name) = @_;
+  my ($class, $file_name, %params) = @_;
 
   my ($local_bank_code, $local_account_number, %transaction, @transactions, @lines);
   my $line_number = 0;
@@ -40,7 +40,7 @@ sub parse {
   my ($active_field);
   foreach my $line (read_file($file_name)) {
     chomp $line;
-    $line = Encode::decode('UTF-8', $line);
+    $line = Encode::decode($params{charset} // 'UTF-8', $line);
     $line =~ s{\r+}{};
     $line_number++;