X-Git-Url: http://git.home-dn.net/?p=manu%2FRT-Extension-ImportCustomFieldValues.git;a=blobdiff_plain;f=html%2FAdmin%2FCustomFields%2FImportValues.html;fp=html%2FAdmin%2FCustomFields%2FImportValues.html;h=b6426fbf92ec73795993854a549dd940243e1483;hp=6a197e2daa0edd0b188c1723e053583c5b4667b3;hb=8eebce8a71775b5f9d6079644e9153a482534f0c;hpb=f9632a66af85bb482ec5a1253adaa37b2c25d856

diff --git a/html/Admin/CustomFields/ImportValues.html b/html/Admin/CustomFields/ImportValues.html
index 6a197e2..b6426fb 100644
--- a/html/Admin/CustomFields/ImportValues.html
+++ b/html/Admin/CustomFields/ImportValues.html
@@ -93,10 +93,10 @@ if ( $ARGS{Cancel} ) {
     push @results, "Importing ". $filename;
     my $fh = $cgi_object->upload($name);
     if ( $fh ) {
-        binmode($fh);
+        binmode($fh, ":utf8");
 
         require Text::CSV;
-        my $csv = Text::CSV->new ({ strict => 1, sep_char => ";", });
+        my $csv = Text::CSV->new ({ binary => 1, strict => 1, sep_char => ";", });
         $values = $csv->csv (in => $fh, headers => [qw(SortOrder Name Description Category)], encoding => 'UTF-8', );
         unless ( $values && ref($values) eq 'ARRAY' ) {
             push @results, loc("[_1]: Wrong file format", $filename);